Ver Mensaje Individual
  #4  
Antiguo 25-08-2004
Avatar de marto
marto marto is offline
Miembro
 
Registrado: may 2003
Ubicación: Barcelona, Catalunya
Posts: 882
Reputación: 22
marto Va por buen camino
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
    { 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.
__________________
E pur si muove
Responder Con Cita