Como me entero de ke delphi termino de crear la forma?

[Anel Hernandez]

Hola,

Necesito saber si existe alguna propiedad ke me diga si ya termino de crear la form1. La principal.

Lo ke me pasa es que cuando se crea la forma se me activan varios procedimientos que tengo en onclick de varios componentes y kiero ponerle como condicion ke se ejecuten solo despues de creada la forma.

Lo hice creando una variable boolean que cuando se crea la forma se hace true. pero kisiera saber si delphi me lo puede decir sin tener ke crear una variable adicional.

saludos y gracias

[roman]

Pues ¿qué no para eso es el evento OnCreate?

// Saludos

[ecfisa]

y kiero ponerle como condicion ke se ejecuten solo despues de creada la forma.

Hola.

Una opción podría ser:

Código Delphi [-]
...
const
  WM_AFTER_CREATE = WM_USER + 100;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    procedure WmAfterCreate(var Msg: TMessage); message WM_AFTER_CREATE;
  public
  end;
...
implementation

procedure TForm1.FormCreate(Sender: TObject);
begin
  // Acciones que se ejecutarán en la creación
  PostMessage(Self.Handle, WM_AFTER_CREATE, 0, 0);
end;

procedure TForm1.WmAfterCreate(var Msg: TMessage);
begin
  // Acciones que se ejecutarán después de la creación
end;
...

Saludos.

[roman]

Sigo sin ver la necesidad de esto. En Delphi, a menos que OldCreateOrder sea true, el evento OnCreate se llama una vez que el formulario y sus componentes se han terminado de construir. De hecho, la VCL, una vez terminado el constructor Create, llama al método AfterConstruct (que vendría siendo el equivalente al PostMessage) y desde ahí se llama al evento OnCreate.

// Saludos

[Anel Hernandez]

Hola,

parece ke no me explike bien.

por supuesto ke pasa por el oncreate. pero eso es un evento y necesito una propiedad.

lo ke me pasa es ke cuando pasa por el oncreate actualizo varios componentes y entonces se me activan varios eventos onclick.

lo ke kisiera es ke en esos eventos onclick comprobar si ya la forma esta creada para ke se ejecuten sus acciones si no, no.

hasta ahora tengo un boolean que se hace true al finalizar el oncreate. lo ke kiero saber es si delphi tiene alguna propiedad ke me indike ke la la forma principal se creo sin tener ke programar nada adicional, ni crear variables nuevas, ni constantes.

algo asi como:

if sender.abierto then ...

gracias mil

[Anel Hernandez]

Hola,

bueno si es como dice roman, entonces lo ke necesito es enterarme si Delphi cambia alguna propiedad luego de ejecutarse el oncreate.

Gracias

[ecfisa]

Hola Anel.

Veo que no comprendí lo que buscabas en tu primer mensaje y debo reconocer que todavía no termino de entender lo que deseas hacer...

una vez terminado el constructor Create, llama al método AfterConstruct (que vendría siendo el equivalente al PostMessage) y desde ahí se llama al evento OnCreate.

Roman, con respecto al órden que mencionas, y por favor corrígeme si estoy equivocado, siempre tuve la idea que el órden era: Create -> OnCreate -> AfterConstruction.

Hice una pequeña prueba y pareciera comportarse de ese modo.

Código Delphi [-]
...
constructor TForm1.Create(AOwner: TComponent);
begin
  inherited;
  ShowMessage('Create');
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  ShowMessage('OnCreate');
end;

procedure TForm1.AfterConstruction;
begin
  inherited;
  ShowMessage('AfterConstruction');
end;
...

Saludos