Delphi LiveBindings如何绑定一个对象(转)

指尖风暴技术信息 9 年前 0 129

原文 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;