Delphi LiveBindings如何绑定一个对象(转)
原文 http://www.malcolmgroves.com/blog/?p=1084
本文链接:http://www.cnblogs.com/pengshaomin/archive/2013/04/23/3038565.html
一、新建VCL工程加入TAdapterBingSource控件
二、定一个TPerson类
MyPerson : TPerson;
TPerson = class private FAge: Integer; FLastname: string; FFirstname: string; public constructor Create(const Firstname, Lastname : string; Age : Integer); virtual; property Firstname : string read FFirstname write FFirstname; property Lastname : string read FLastname write FLastname; property Age : Integer read FAge write FAge; end;
三、双击并加入事件代码
1.创建一个对象实列Person
2.创建一个BindSourceAdapter
- self, 指定TObjectBindSource的归属
- MyPerson,需要邦定对象实例
- True,是否自动释放,如果否则False 默认值为True
procedure TForm4.AdapterBindSource1CreateAdapter(Sender: TObject; var ABindSourceAdapter: TBindSourceAdapter); begin MyPerson :=TPerson.Create('test','test1', 13); ABindSourceAdapter := TObjectBindSourceAdapter<TPerson>.Create(Self, MyPerson, True); end;
四、放一个TStringGrid对象 在Events LiveBindings点击BindVisually
点击运行
声明:本站所有文章,如无特殊说明或标注,均为本站原创发布。任何个人或组织,在未征得本站同意时,禁止复制、盗用、采集、发布本站内容到任何网站、书籍等各类媒体平台。如若本站内容侵犯了原著者的合法权益,可联系我们进行处理。