Los hermanos sean unidos... y sus propiedades también

[elcigarra]

Vuelvo al ejemplo de Roman de la vez anterior (que hay que decirlo, funcionó perfecto) pero esta vez con dos "hijos"...

Código Delphi [-]
  type
   TMiControl = class(TCustomControl)
   private
     FEditA: TEdit;
     FEditB: TEdit;
     procedure SetEdit(Value: TEdit);
   public
     constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
   published
     property Edit: TEdit read FEdit write SetEdit;
   end;
 
 implementation
 
 { TMiControl }
 
 constructor TMiControl.Create(AComponent: TComponent);
 begin
   inherited;
   FEditA := TEdit.Create(Self);
   FEditB := TEdit.Create(Self);
   FEditA.Parent := Self;
   FEditB.Parent := Self;
   FEditA.SetSubComponent(true);
 end;

En este caso el subcomponente publicado es solamente el "A". ¿Hay alguna forma de hacer que las propiedad "Text" estén relacionadas?. Es decir, cuando el tiempo de ejecución el usuario cambie el texto de un edit (x ej el "A"), que cambie también el otro.

[jmariano]

Una forma de hacer lo que quieres es capturar el evento OnChange del Edit "A", dentro de tu componente, y que, cuando se produzca, cambie el contenido del Edit "B":

Código Delphi [-]
type
  TMiControl = class(TCustomControl)
  private
    FEditA: TEdit;
    FEditB: TEdit;
    procedure CambiarB(Sender: TObject); // Método para cambiar FEditB
    procedure SetEdit(Value: TEdit);
    ...
  end;

constructor TMiControl.Create(AComponent: TComponent);
begin
  inherited;
  FEditA := TEdit.Create(Self);
  FEditB := TEdit.Create(Self);
  FEditA.Parent := Self;
  FEditB.Parent := Self;
  FEditA.OnChange := CambiarB; // Método que cambia el valor de FEditB 
  FEditA.SetSubComponent(true);
end;  

procedure TMiControl.CambiarB(Sender: TObject);
begin
  FEditB.Text := FEditA.Text;
end;

Saludos!

[Sirkius]

Podrías hacer un procedimiento dentro de la clase del tipo TNotifyEvent, que compruebe si estan asignados los Edits y en ese caso lo copia de un a otro. Despues en el OnCreate se lo asignas al EditA.

PD: te pondria el codigo pero todavia no me llevo muy bien con lo de crear clases...

EDITO: eso mismo :P

[delphi.com.ar]

Si... controlando los eventos de los TEdits, al igual que lo harías si los pegas sobre un TForm, por ejemplo, capturando el evento OnChange.

Código Delphi [-]
type
   TMiControl = class(TCustomControl)
   private
     FEditA: TEdit;
     FEditB: TEdit;
     procedure SetEdit(Value: TEdit);
     procedure OnEditAChange(Sender: TObject);
     procedure OnEditBChange(Sender: TObject);
   public
     constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
   published
     property Edit: TEdit read FEdit write SetEdit;
   end;
 
 implementation
 
 { TMiControl }
 
constructor TMiControl.Create(AComponent: TComponent);
begin
   inherited;
   FEditA := TEdit.Create(Self);
   FEditB := TEdit.Create(Self);
   FEditA.Parent := Self;
   FEditB.Parent := Self;
   FEditA.OnChange := OnEditAChange;
   FEditB.OnChange := OnEditBChange;
   FEditA.SetSubComponent(true);
end;

procedure TMiControl.OnEditAChange(Sender: TObject);
begin
  EditB.Text := EditA.Text;
end;

procedure TMiControl.OnEditBChange(Sender: TObject);
begin
  EditA.Text := EditB.Text;
end;