Главная » База знаний » Визуальные компоненты » TForm » Перемещение формы

Как узнать что форма потеряла фокус?

Falk0ner, вс, 06/07/2008 - 15:34.

Как узнать что форма потеряла фокус?

Application.OnDeactivate

Lakmus (?), чт, 27/08/2009 - 04:57.

Private
    { Private declarations }
    Procedure LastFocus(Var Mess : TMessage);
    Message WM_ACTIVATEAPP;
...
Procedure TForm1.LastFocus(Var Mess : TMessage);
Begin
If Mess.wParam = WA_INACTIVE Then
Form1.Color:=ClInactiveCaption
Else
Form1.Color:=ClActiveCaption;
Inherited;
End;

»

Отправить комментарий

  • Адреса страниц и электронной почты автоматически преобразуются в ссылки.
  • Для цитирования используйте тег [quote]
  • Use <!--newpage--> to create page breaks.
  • You can enable syntax highlighting of source code with the following tags: <code>, <blockcode>. Beside the tag style "<foo>" it is also possible to use "[foo]".
  • You can use BBCode tags in the text, URLs will automatically be converted to links.
Проверка
Антиспам проверка
Image CAPTCHA
...