Ver Mensaje Individual
  #4  
Antiguo 08-09-2005
Avatar de delphi.com.ar
delphi.com.ar delphi.com.ar is offline
Federico Firenze
 
Registrado: may 2003
Ubicación: Buenos Aires, Argentina *
Posts: 5.932
Reputación: 27
delphi.com.ar Va por buen camino
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;
__________________
delphi.com.ar

Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla.
Responder Con Cita