在线时间:8:00-16:00
迪恩网络APP
随时随地掌握行业动态
扫描二维码
关注迪恩网络微信公众号
新版本的Delphi XE2 使用FireMonkey框架,它不同于VCL,以往的数据感知控件不能放在它上面,所以XE2提供了LiveBinding功能作为替代方案。另外它也是通用的基础设施,同样可用于传统的VCL.这里用一个极其简化的例子说明它的意图,在窗体上放一个edit和一个label,找到label的LiveBings属性,选New LiveBinding...,再选择TBindExpressing. 然后设置属性如下图所示: 这样就把 edit 的 text 属性和 label 的 caption 属性绑定起来了,不用写任何代码。运行后,会看到 label 的内容就是 edit 的 text 值,但是在 edit 中输入内容,label 却没有跟着变化,如果要重新获得 edit 的值,可以用代码:
procedure TForm1.BindExpressionLabel1AssignValue( AssignValueRec: TBindingAssignValueRec; var Value: TValue; var Handled: Boolean); begin value:=trim(value.AsString); end;
选择它,出现下面的图,这个界面里的树,描述了当前窗体上放置的数据集,和它的字段,设置好后,它看起来就象是个 TRzDbLabel 了,实时显示字段值,不需要象上面的例子那样写Evaluate() 引自 FoolCode 愚人笔记 |
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
请发表评论