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

[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

[roman]

Je, je, claro. Pero estás haciendo trampa

Ponlo así:

Código Delphi [-]
procedure TForm1.AfterConstruction;
begin
  ShowMessage('AfterConstruction');
  inherited;
end;

Tal como lo tienes, se ejecuta primero tu AfterConstruction pero antes del ShowMessage llamas a inherited y éste llama a tu FormCreate y por eso ves antes el ShowMessage del OnCreate. Pon puntos de ruptura en los begin correspondiente y verás el orden real.

En cuanto a la pregunta de la compañera, pues no vería cuál es el problema, esto es, no habría que verificar nada pues el sólo hecho de que ejecute el OnClick de un componente en el OnCreate del formulario, ya garantiza que el formulario ha sido creado.

// Saludos

[roman]

Para mayor claridad, este es el código de TCustomForm.AfterConstruction:

Código Delphi [-]
procedure TCustomForm.AfterConstruction;
begin
  if not OldCreateOrder then DoCreate;
  if fsActivated in FFormState then
  begin
    Activate;
    Exclude(FFormState, fsActivated);
  end;
end;

mientras que DoCreate es así:

Código Delphi [-]
procedure TCustomForm.DoCreate;
begin
  if Assigned(FOnCreate) then
  try
    FOnCreate(Self);
  except
    if not HandleCreateException then
      raise;
  end;
  if fsVisible in FFormState then Visible := True;
end;

Ahí es donde se llama a OnCcreate, a menos, que OldCreateOrder sea true.

// Saludos

[ecfisa]

Empezado por roman

Tal como lo tienes, se ejecuta primero tu AfterConstruction pero antes del ShowMessage llamas a inherited y éste llama a tu FormCreate y por eso ves antes el ShowMessage del OnCreate

Muchas gracias por la aclaración, nunca es tarde para corregir conceptos .

Un saludo.

[Anel Hernandez]

Hola,

de nuevo y con otras palabras.

en mi aplicacion, en el evento oncrete tengo varias asignaciones a propiedades de componentes:

text1.edit:=... parametro ke leo de fichero
text2.edit:=... idem
checkbox1.checked:= true si del fichero se lee una condicion que lo pone en true
etc....

y asi le asigno propiedades a varios componentes.

al hacer esto, se activan varios eventos .onclick de los componentes actualizados. yo desearia ke esos eventos onclick se activaran solo cuando se diera click sobre ellos y no cuando se esta lanzando el programa y se ejecuta el evento .oncreate de la form principal.

la idea ke se me ocurrio fue poner una variable boolean global (abierto) ke se le asigna true al final del .oncreate y en los .onclick de los componentes la condicion if abierto then etc.

La pregunta es si hay alguna propiedad de la forma principal, o de algun componente de mi aplicacion ke me permita determinar si ya se concluto de lanzar mi aplicacion y no tener ke crear una nueva variable.

La pregunta tambien pudiera ser si hay alguna manera de ke no se ejecuten los eventos .onclick cuando se esta lanzando la aplicacion de alguna otra via.

gracias mil

[ecfisa]

Hola Anel.

Ahora creo entenderte... me parece que de este modo vas a lograr lo que buscas, por ejemplo:

Código Delphi [-]
...
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    ...
    procedure FormCreate(Sender: TObject);
    ...
    procedure FormDestroy(Sender: TObject);
  private
    procedure Edit1Change(Sender: TObject);
    ...
  public
  end;
...
implementation

procedure TForm1.FormCreate(Sender: TObject);
begin
  // Asignar valores a propiedades de componentes
  Edit1.Text:= 'xxxx';
  ...
  // Asignar eventos
  Edit1.OnChange:= Edit1Change; // Evento asignado posteriormente (no se dispara OnChange)
  ...
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
  ShowMessage('CHANGE');
end;

...

procedure TForm1.FormDestroy(Sender: TObject);
begin
   // Desasignar
   Edit1.OnChange:= nil;
  ...
end;

Claro que previamente tendrías que quitar los eventos asignados por código desde el Object Inspector

Saludos.

[roman]

Empezado por Anel Hernandez

yo desearia ke esos eventos onclick se activaran solo cuando se diera click sobre ellos y no cuando se esta lanzando el programa y se ejecuta el evento .oncreate de la form principal.

¡Ah pues! Esto es mucho más claro. Una forma de comprobar podría ser, en los eventos OnClick examinar la proiedad Visible del formulario, que estará en false en el OnCreate.

// Saludos

[Neftali [Germán.Estévez]]

Otra opción diferente a las comentadas, es utilizar el procedimiento Loaded.
Sobreescribirlo e inicializar lo que necesitas después del inherited.

[roman]

Pero viene a ser lo mismo. Una asignación como

Código Delphi [-]
CheckBox1.Checked := true;

en el método Loaded de todas maneras activa el evento OnClick del CheckBox por lo que se tendría aún que verificar si se activó por el usuario o por la asignación.

// Saludos