[TRUCO DELPHI] Implementar los Eventos AfterShow y AfterCreate.
delphi
const WM_AFTER_SHOW = WM_USER + 300; // Mensaje WM_AFTER_CREATE = WM_USER + 301; // Mensaje type TForm1 = class(TForm) // Evento OnShow procedure FormShow(Sender: TObject); // Evento OnCreate procedure FormCreate(Sender: TObject); private procedure WmAfterShow(var Msg: TMessage); message WM_AFTER_SHOW; procedure WmAfterCreate(var Msg: TMessage); message WM_AFTER_CREATE; public end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.WmAfterShow(var Msg: TMessage); begin ShowMessage('WM_AFTER_SHOW Recibido!'); end; procedure TForm1.WmAfterCreate(var Msg: TMessage); begin ShowMessage('WM_AFTER_CREATE Recibido!'); end; procedure TForm1.FormShow(Sender: TObject); begin PostMessage(Self.Handle, WM_AFTER_SHOW, 0, 0); end; procedure TForm1.FormCreate(Sender: TObject); begin PostMessage(Self.Handle, WM_AFTER_CREATE, 0, 0); end;
Saludos!