Главная / DELPHI / Часто задаваемые вопросы и ответы на них / Win Api / Событие при потере и установке фокуса для формы.

Событие при потере и установке фокуса для формы.

Примечание: В данном примере при потере фокуса формой, PanelCaption окрашивается в цвет неактивного заголовка, в случае получения фокуса формой - в цвет активного заголовка. То есть цвет панели повторяет изменение цвета Caption самой формы.

Type TMain = class(TForm)
  ....
  protected Procedure LastFocus(var Mess : TMessage) ; message  WM_ACTIVATE;
End;

//--------------------------------------------------------------
Procedure TMain.LastFocus(var Mess : TMessage) ;
Begin

     IF  Mess.wParam = WA_INACTIVE
     Then PanelCaption.Color:=clInactiveCaption
     Else PanelCaption.Color:=clActiveCaption;

     Inherited;

End;

Источник: Дельфи. Вокруг да около.

Copyright ©   "Мастера DELPHI"   E-mail:   delphi@mastak.com  http://www.delphimaster.ru

Источник получения информации: http://www.delphimaster.ru