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

[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

[[maeyanes]]

Hola...

A mi solo me quedó la duda: ¿será que al teclado de Anel le falla la tecla Q?


Saludos...

[Anel Hernandez]

Hola,

gracias. Al final he resuelto con la propiedad visible. Muchas Gracias.

Lo de la K por Q se debe a Que escribo desde un lugar con una conexion muy lenta y debo escribir muy rapido porque se cae constantemente.

saludos y gracias