delphi - Necesita LiveBindings bidireccionales entre un control y un objeto

delphi-xe2

Question

En Delphi XE2 LiveBindings, necesito vincular un control VCL de cualquier tipo a una propiedad de cualquier tipo en un objeto arbitrario (no componente). Puedo hacer esto unidireccionalmente Pero necesito hacerlo bidireccionalmente.

Digamos que quiero vincular un TPerson.PersonName: cadena a un TEdit.Text.

Lo que tengo ahora es simple.

• Cree una nueva aplicación VCL, agregue un TBindScope, TBindingsList, TEdit.
• Crea una instancia de TPerson llamada person1.
• Usando una BindingList, agregue una propiedad TBindExpression.
• Con BindExpression
• • establecer ControlComponent a Edit1
• • establecer ControlExpression en ''Texto''
• • establecer SourceComponent a BindScope1
• • establecer SourceExpression para PersonName
• Agregar un botón; al evento Click que agrego: BindScope1.DataObject: = person1;
• Agregar un botón; al evento Click que agrego (solo uno es necesario, pero hasta que funcione, los probaré a ambos).
• • TBindings.Notify (emisor, '''');
• • BindingsList1.Notify (emisor, '''');

El primer botón se une en la primera dirección. El segundo botón nunca parece escribir el valor en la propiedad person1.PersonName.

He experimentado con el código de notificación, la dirección de enlace, los tipos de enlace, las expresiones, SourceMember, etc. A veces obtengo errores de tiempo de ejecución en la configuración bindexpression, el resto del tiempo el enlace es simplemente unidireccional.

Espero hacer clic en el segundo botón y ver el contenido de Edit1.Text escrito en person1.PersonName.

Si tengo que hacer todo esto desde el código, lo consideraré y tales ejemplos son bienvenidos, pero realmente quiero hacerlo a través del diseñador si es posible.

Tenga en cuenta que no estoy interesado en el enlace entre dos controles.

Tenga en cuenta también que ya he descargado e inspeccionado los proyectos de muestra LiveBinding, y no encontré ninguno que haga esto. Si esto es incorrecto, sea específico al señalarlo. También he leído el DocWiki. No cubre la unión bidireccional excepto que usa los controles DB LiveBinding. No estoy usando los controles DB LiveBinding ni estoy usando un DataSet. Así que, a menos que pueda explicarme por qué debería usarlos, no necesitaré información sobre esos controles.

Answer 1

Lo tengo trabajando ahora. Lo hice todo en el diseñador, pero lo he convertido principalmente en código para compartirlo mejor en SO.

Crear un proyecto de formularios VCL. En el formulario, suelte cada uno de estos en el formulario:

TBindScope TBindingsList TButton TButton TEdit

Cambie el nombre de uno de los botones a btnLoad y el otro a btnGuardar.

Pegue este código sobre su unidad de formulario (suponiendo que se llame Form1). Asigne los manejadores de clic para los botones y ejecútelo. Haga clic en btnLoad para rellenar el cuadro de edición con los datos del objeto TPerson, edite el texto en el cuadro de edición a un nuevo valor y luego haga clic en btnGuardar para volver a escribirlo en el objeto TPerson.

unit Form1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, System.Rtti,
// LiveBinding units
System.Bindings.Helper, // Contains TBindings class
Data.Bind.EngExt,
Vcl.Bind.DBEngExt,
Data.Bind.Components,
System.Bindings.Outputs;
type
TPerson = class(TObject)
protected
fName: string;
fAge: integer;
procedure SetName(const Value: string);
public
property Name: string read fName write SetName;
property Age: integer read fAge write fAge;
end;
type
TForm1 = class(TForm)
btnLoad: TButton;
btnSave: TButton;
BindScope1: TBindScope;
BindingsList1: TBindingsList;
Edit1: TEdit;
procedure btnLoadClick(Sender: TObject);
procedure btnSaveClick(Sender: TObject);
private
fInitialized: boolean;
fPerson: TPerson;
procedure Initialize;
public
procedure AfterConstruction; override;
procedure BeforeDestruction; override;
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.AfterConstruction;
begin
inherited;
Initialize;
end;
procedure TForm1.BeforeDestruction;
begin
fPerson.Free;
inherited;
end;
procedure TForm1.btnLoadClick(Sender: TObject);
begin
fPerson.Name := ''Doogie Howser'';
fPerson.Age := 15;
BindScope1.DataObject := fPerson;
end;
procedure TForm1.btnSaveClick(Sender: TObject);
begin
TBindings.Notify(Edit1, '''');
// Could also do this:
//BindingsList1.Notify(Edit1, '''');
end;
procedure TForm1.Initialize;
var
expression: TBindExpression;
begin
// Create a binding expression.
expression := TBindExpression.Create(self);
expression.ControlComponent := Edit1;
expression.ControlExpression := ''Text''; // The Text property of Edit1 ...
expression.SourceComponent := BindScope1;
expression.SourceExpression := ''Name''; // ... is bound to the Name property of fPerson
expression.Direction := TExpressionDirection.dirBidirectional;
// Add the expression to the bindings list.
expression.BindingsList := BindingsList1;
// Create a Person object.
fPerson := TPerson.Create;
end;
{ TPerson }
procedure TPerson.SetName(const Value: string);
begin
fName := Value;
ShowMessage(''Name changed to "''+ Value +''"'');
end;
end.