Ver Mensaje Individual
  #4  
Antiguo 26-01-2007
Avatar de dec
dec dec is offline
Moderador
 
Registrado: dic 2004
Ubicación: Alcobendas, Madrid, España
Posts: 13.108
Reputación: 34
dec Tiene un aura espectaculardec Tiene un aura espectacular
Hola,

Tal vez como dice el compañero puedas preparar un formulario del que heredarán los que sean menester. Puedes hacerlo "visualmente", creando el formulario y añadiéndolo al inspector de objetos de Delphi. En todo caso la cosa sería más o menos así, en mi opinión:

Código Delphi [-]

type
  TFormEx = class(TForm)
  public
    constructor Create(AOwner: TComponent); override; 
  end;

{ TFormEx }

constructor TFormEx.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  
  {...}
end;

Y a partir de ahí a heredar de "TFormEx", es decir:

Código Delphi [-]

type
  TForm1 = class(TFormEx)
  end;

Para que cuando crees una instancia de "TForm1" se ejecute el constructor de "TFormEx", en el que puedes codificar... aquello que necesites.
__________________
David Esperalta
www.decsoftutils.com
Responder Con Cita