No hay respuestas en este tema

[sir.dev.a.lot]

[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!