Delphi XE2 и LiveBindings между элементами управления - PullRequest
Новая
       5

Delphi XE2 и LiveBindings между элементами управления

10 голосов
/ 08 сентября 2011

Возможно ли сделать LiveBinding между элементами управления, то есть взять 2 поля редактирования и получить результат добавления их содержимого вместе в метку.Я уверен, что это так, я просто не знаю, с чего начать

Спасибо

Ответы [ 3 ]

9 голосов
/ 08 сентября 2011

Посмотрите на образцы. URL хранилища SVN: https://radstudiodemos.svn.sourceforge.net/svnroot/radstudiodemos/branches/RadStudio_XE2/LiveBindings

Пример:

----- Unit1.dfm ----- 

object Form1: TForm1
  Left = 0
  Top = 0
  Caption = 'Form1'
  ClientHeight = 286
  ClientWidth = 426
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 8
    Top = 62
    Width = 48
    Height = 13
    Caption = 'Edit1Edit2'
  end
  object Edit1: TEdit
    Left = 8
    Top = 8
    Width = 121
    Height = 21
    TabOrder = 0
    Text = 'Edit1'
    OnChange = EditChange
  end
  object Edit2: TEdit
    Left = 8
    Top = 35
    Width = 121
    Height = 21
    TabOrder = 1
    Text = 'Edit2'
    OnChange = EditChange
  end
  object BindingsList1: TBindingsList
    Methods = <>
    OutputConverters = <>
    UseAppManager = True
    Left = 20
    Top = 5
    object BindExpressionLabel11: TBindExpression
      Category = 'Binding Expressions'
      ControlComponent = Label1
      SourceComponent = BindScope1
      SourceExpression = 'Edit1.Text + Edit2.Text'
      ControlExpression = 'Caption'
      NotifyOutputs = False
      Direction = dirSourceToControl
    end
  end
  object BindScope1: TBindScope
    Left = 192
    Top = 16
  end
end

----- Unit1.pas ----- 

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.Bind.EngExt, Vcl.Bind.DBEngExt,
  System.Rtti, System.Bindings.Outputs, Vcl.Bind.Editors, Data.Bind.Components,
  Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    BindingsList1: TBindingsList;
    BindExpressionLabel11: TBindExpression;
    BindScope1: TBindScope;
    procedure EditChange(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses
  System.Bindings.Helper;

procedure TForm1.EditChange(Sender: TObject);
begin
  TBindings.Notify(Sender, 'Text');
end;

end.

Как использовать конструктор IDE для получения результата:

  • поместите два изменения (Edit1, Edit2), метку (Label1) и TBindScope (BindScope1) в вашу форму (Form1).
  • создать обработчик событий для события OnChange обоих правок (EditChange).
  • выберите Label1, раскройте раскрывающийся список свойства LiveBindings, выберите «New Live Binding ...», выберите TBindExpression
  • редактировать свойства недавно созданного BindExpressionLabel11: назначить Caption для ControlExpression, BindScope1 для SourceComponent, Edit1.Text + Edit2.Text для SourceExpression
4 голосов
/ 08 сентября 2011

Пример проекта в расположении (по умолчанию): 

C:\Users\Public\Documents\RAD Studio\9.0\Samples\Delphi\LiveBinding\Components\bindexpression\fmx\BindExpressionSampleProject.dproj

делает именно это.

0 голосов
/ 16 января 2012

Вам не нужно TBindScope для связывания компонентов вместе.Скажем, у вас есть edit1 и edit2 в форме.Если вы установите edit2 BindingSource для edit1, это будет ссылка на изменения для edit1

...