Delphi XE2의FireMonkey 입문(26) - 데이터 귀속: TBindingsList: TBindExprItems

만약 '원본 컨트롤' 과 '목표 컨트롤' 쌍에 여러 표현식을 쓰려면, TBindExpression을 사용하면 TBindExpritems보다 못하다.
TBindExpressions,ClearExpressions, 후자는 귀속을 끊을 때의 표현식으로 두 그룹으로 나뉜다.
예제 시나리오:
1. TrackBar1을 소스로 하고 Value 값을 Edit1에 바인딩합니다.Text 및 Edit1.Width 및 Label1.Text;
2. 바인딩을 끊을 때 Edit1에 "바인딩 해제됨"을 표시합니다.
먼저 창에 TrackBar1, Edit1, Label1, BindingsList1, CheckBorx1을 추가한 다음 TrackBar1, ChengkBox1 및 창의 기본 이벤트를 활성화합니다.

unit Unit1;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Dialogs, Data.Bind.EngExt,
  Fmx.Bind.DBEngExt, Data.Bind.Components, FMX.Edit;

type
  TForm1 = class(TForm)
    TrackBar1: TTrackBar;
    Edit1: TEdit;
    Label1: TLabel;
    BindingsList1: TBindingsList;
    CheckBox1: TCheckBox;
    procedure FormCreate(Sender: TObject);
    procedure TrackBar1Change(Sender: TObject);
    procedure CheckBox1Change(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.fmx}

var
  bindExprItems: TBindExprItems;

procedure TForm1.FormCreate(Sender: TObject);
begin
  bindExprItems := TBindExprItems.Create(BindingsList1);
  with bindExprItems do
  begin
    ControlComponent := Edit1;    //    
    SourceComponent := TrackBar1; //   
    {  TrackBar1.Value     Edit1.Text}
    with FormatExpressions.AddExpression do
    begin
      ControlExpression := 'Text';
      SourceExpression := 'Value';
    end;
    {  TrackBar1.Value     Edit1.Width}
    with FormatExpressions.AddExpression do
    begin
      ControlExpression := 'Width';
      SourceExpression := 'Value';
    end;
    {  TrackBar1.Value     Label1.Text}
    with FormatExpressions.AddExpression do
    begin
      ControlExpression := 'Owner.Label1.Text'; //Owner
      SourceExpression := 'Value';
    end;
    {       ...}
    with ClearExpressions.AddExpression do
    begin
      ControlExpression := 'Self.Text';  //    Self         ,    
      SourceExpression := '"     "';
    end;
    Active := True;
  end;
  CheckBox1.IsChecked := True;
  TrackBar1.Max := ClientWidth;
end;

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
  BindingsList1.Notify(Sender, 'Value');
end;

procedure TForm1.CheckBox1Change(Sender: TObject);
begin
  bindExprItems.Active := TCheckBox(Sender).IsChecked;
end;

end.