Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
Разработка программного обеспечения
KANSoftWare

Реализация событий AfterShow и AfterCreate

Delphi , Компоненты и Классы , Свойства и События

Реализация событий AfterShow и AfterCreate

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

{ 
  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);
   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 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;

Статья Реализация событий AfterShow и AfterCreate раздела Компоненты и Классы Свойства и События может быть полезна для разработчиков на Delphi и FreePascal.


Комментарии и вопросы


Ваше мнение или вопрос к статье в виде простого текста (Tag <a href=... Disabled). Все комментарии модерируются, модератор оставляет за собой право удалить непонравившейся ему комментарий.

заголовок

e-mail

Ваше имя

Сообщение

Введите код




Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.



:: Главная :: Свойства и События ::


реклама

::


©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Top.Mail.Ru Rambler's Top100
18.09.2020 23:21:53/0.014234066009521/0