Envento OnCreate para todos los Forms

[roman]

La idea es magnífica. De hecho ayer que vi este hilo, lo primero que hice fue ver si las gexperts tenían algo similar, pero creo que no ¡Ya estoy esperando tu wizard que lo haga!

// Saludos

[[Lepe]]

Empezado por roman

La idea es magnífica. De hecho ayer que vi este hilo, lo primero que hice fue ver si las gexperts tenían algo similar, pero creo que no ¡Ya estoy esperando tu wizard que lo haga!

// Saludos

... Por supuesto hablas con juanfergl ¿no?

Saludos.

[[Crandel]]

En realidad yo tambien estaba necesitando algo similar.

Otra alternativa de la que comenta Lepe es usar el evento OnActiveFormChange de la clase TScreen y verificas que el control sea un TForm.

El problema es que estas capturando el evento Active y no el verdadero create, pero te muestro como parchearlo.

igualmente te dejo un poco de codigo:

en el Form Create de tu MainForm escribes (tambien puede ser otro lado)

Código Delphi [-]
procedure TMainForm.FormCreate(Sender: TObject);
begin
  Screen.OnActiveFormChange := FormActiveFormChange;
end;

donde FormActiveFormChange es el nombre de tu metodo.

Luego:

Código Delphi [-]
Procedure TMainForm.FormActiveFormChange(Sender:TObject);
Begin
  if (Screen.ActiveForm is TForm) then  // solo verificamos
     if Screen.ActiveForm.Tag <> 1 then
     begin
       Screen.ActiveForm.Tag:=1;  // de esta forma sabemos si ya se creo o no
       .....  // todo tu codigo
    end;
end;

igualmente si alguien sabe de otro metodo mejor que comente.

Estuve realizando algunas pruebas intentando capturar el mensaje de windows WM_CREATE, pero al parecer este solo lo envia a la ventana que se esta creando.

Tambien probe con Application.OnMessage, pero envia casi todos los mensajes menos WM_CREATE, en realidad en la ayuda lo avisaba.

No se cual otra queda . Seguro que capturando otro mensaje de windows, pero todavia no encontre cual.