Delphi LiveBindings クラスからバインドする

カテゴリ技術メモの最新配信
RSS
RDF
ATOM

開発ブログ - Delphi LiveBindings クラスからバインドする

Delphi LiveBindings クラスからバインドする

カテゴリ :: 技術メモ » Delphi » LiveBindings

執筆 :: 2014/6/28

クラスからバインドして表示する

TAdapterBindSource と TDataGeneratorAdapter

(1) まずは二つを配置
(2) AdapterBindSource の Adapter プロパティに DataGeneratorAdapter をセット

(3) AdapterBindSource の OnCreateAdapter イベントで
TObjectBindSourceAdapter
または
TListBindSourceAdapter
を生成する


procedure TMain.AdapterBindSource1CreateAdapter(Sender: TObject; var ABindSourceAdapter: TBindSourceAdapter);
var
  LEmployee: TEmployee;
begin
  LEmployee := TEmployee.Create('John', 'Anders', 26, StrToDate('10/10/2011'), 'Developer', 'Adrian Hermann');
  ABindSourceAdapter := TObjectBindSourceAdapter<TEmployee>.Create(Self, LEmployee);
end;

または


procedure TMain.AdapterBindSource1CreateAdapter(Sender: TObject; var ABindSourceAdapter: TBindSourceAdapter);
var
  LList: TObjectList<TEmployee>;
begin
  LList := TObjectList<TEmployee>.Create;
  LList.Add(TEmployee.Create('John', 'Anders', 26, StrToDate('10/10/2011'), 'Developer', 'Adrian Hermann'));
  ABindSourceAdapter := TListBindSourceAdapter<TEmployee>.Create(Self, LList, True);
end;

クラスにバインドできるってうれしい

http://docwiki.embarcadero.com/RADStudio/XE3/ja/%E3%83%81%E3%83%A5%E3%83%BC%E3%83%88%E3%83%AA%E3%82%A2%E3%83%AB%EF%BC%9ATAdapterBindSource_%E3%81%A8%EF%BC%BBLiveBinding_%E3%83%87%E3%82%B6%E3%82%A4%E3%83%8A%EF%BC%BD%E3%82%92%E4%BD%BF%E7%94%A8%E3%81%99%E3%82%8B