Copia automática de propiedades

[marto]

Wop!

Empezado por sur-se

, pero entonces no lo puedo modificar en el Object Inspector al diseñar la pantalla, sino que tendría que hacerlo todo por código ¿no?.

No!!!!! Lo que no podrás hacer ni en diseño ni por código es modificar el valor de la referencia, es decir, siempre tendrás que trabajar on las mismas instancias de TEdit (o de tu nuevo TEdit), cosa que es MUY recomendable. En cambio, lo que SÍ podrás hacer y lo que en realidad te interesará es modificar sus propiedades.

Te paso un ejemplo tontisimo listo para usar. Instalate el componente y sueltalo en un form, ya verás...

Código Delphi [-]
unit Panel1;

interface

uses
  Windows, Messages, SysUtils, Classes, Controls, ExtCtrls, StdCtrls;

type
  TPanel1 = class(TPanel)
  private
    FEdit1, FEdit2: TEdit;
  protected
    { Protected declarations }
  public
    constructor Create(AOwner: TComponent); override;
  published
    property Edit1: TEdit read FEdit1;
    property Edit2: TEdit read FEdit2;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Samples', [TPanel1]);
end;

{ TPanel1 }

constructor TPanel1.Create(AOwner: TComponent);
begin
  inherited;
  FEdit1 := TEdit.Create(Self);
  FEdit2 := TEdit.Create(Self);
  FEdit1.Parent := Self;
  FEdit2.Parent := Self;
  FEdit2.Left := FEdit1.Left + FEdit1.Width + 2;
end;


end.