zoukankan      html  css  js  c++  java
  • Delphi XE2 之 FireMonkey 入门(24) 数据绑定: TBindingsList: TBindExpression.Direction


    在学习 BindingSource 属性时, 可以让两个控件互为绑定源; TBindExpression 对应的功能是 Direction 属性.

    先在窗体上添加 Edit1、Edit2、BindingsList1; 然后激活 Edit1、Edit2 和窗体的默认事件.

    procedure TForm1.FormCreate(Sender: TObject);
    begin
      with TBindExpression.Create(BindingsList1) do
      begin
        ControlComponent := Edit2;
        ControlExpression := 'Text';
        SourceComponent := Edit1;
        SourceExpression := 'Text';
    //    Direction := TExpressionDirection.dirSourceToControl; //默认
    //    Direction := TExpressionDirection.dirControlToSource; //反向
        Direction := TExpressionDirection.dirBidirectional;     //双向
        Active := True;
      end;
    end;
    
    procedure TForm1.Edit1Change(Sender: TObject);
    begin
      BindingsList1.Notify(Sender, '');
    end;
    
    procedure TForm1.Edit2Change(Sender: TObject);
    begin
      BindingsList1.Notify(Sender, '');
    end;
    


    如果没有 Direction 属性, 代码或许会是:

    procedure TForm1.FormCreate(Sender: TObject);
    begin
      with TBindExpression.Create(BindingsList1) do
      begin
        ControlComponent := Edit2;
        ControlExpression := 'Text';
        SourceComponent := Edit1;
        SourceExpression := 'Text';
        Active := True;
      end;
    
      with TBindExpression.Create(BindingsList1) do
      begin
        ControlComponent := Edit1;
        ControlExpression := 'Text';
        SourceComponent := Edit2;
        SourceExpression := 'Text';
        Active := True;
      end;
    end;
    
    procedure TForm1.Edit1Change(Sender: TObject);
    begin
      BindingsList1.Notify(Sender, '');
    end;
    
    procedure TForm1.Edit2Change(Sender: TObject);
    begin
      BindingsList1.Notify(Sender, '');
    end;
    

  • 相关阅读:
    Blend混合模式 与 20余种颜色混合模式代码实现
    unity2020相关
    Unity3D研究院之加密Assetbundle不占内存(一百零五)
    Unity AssetBundle 加密
    Unity AssetBundle高效加密案例分享
    AssetBundle压缩/内部结构/下载和加载
    uml类图
    l2j开源java mmo服务器
    Unity开发(三) AssetBundle同步异步引用计数资源加载管理器
    Unity 引擎资源管理代码分析
  • 原文地址:https://www.cnblogs.com/del/p/2197989.html
Copyright © 2011-2022 走看看