Wop!
Cita:
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
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;
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.