{
Question/Abstract:
I often want to automatically run some code directly after the form has
shown. If this is done in the OnShow event it gets done while the form is
still invisible (not good if the code takes a little while to run.)
Currently, I use a Timer with its interval property set to about 200 and
enabled set to false. In the OnShow event I set Timer.Enabled := True and
the first statement in the OnTimer event is Timer.Enabled := False so the
event only runs once.
Answer:
Post a custom message to yourself.
The following code shows how to trigger a AfterShow, AfterCreate event.
}const
WM_AFTER_SHOW = WM_USER + 300; // custom message
WM_AFTER_CREATE = WM_USER + 301; // custom message type
TForm1 = class(TForm)
// OnShow event procedure FormShow(Sender: TObject);
// OnCreate event procedure FormCreate(Sender: TObject);
privateprocedure WmAfterShow(var Msg: TMessage); message WM_AFTER_SHOW;
procedure WmAfterCreate(var Msg: TMessage); message WM_AFTER_CREATE;
publicend;
var
Form1: TForm1;
implementation{$R *.DFM}procedure TForm1.WmAfterShow(var Msg: TMessage);
begin
ShowMessage("WM_AFTER_SHOW received!");
end;
procedure TForm1.WmAfterCreate(var Msg: TMessage);
begin
ShowMessage("WM_AFTER_CREATE received!");
end;
procedure TForm1.FormShow(Sender: TObject);
begin// Post the custom message WM_AFTER_SHOW to our form
PostMessage(Self.Handle, WM_AFTER_SHOW, 0, 0);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin// Post the custom message WM_AFTER_CREATE to our form
PostMessage(Self.Handle, WM_AFTER_CREATE, 0, 0);
end;
Если Вас заинтересовала или понравилась информация по разработке на Delph - "Реализация событий AfterShow и AfterCreate", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу: Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!