скрыть

скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Google  
 

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




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 © 2004-2018 "Delphi Sources". Delphi World FAQ


Delphi XE8

Embarcadero® Delphi XE8 — это самое быстрое решение для разработки программного обеспечения, ускоряющее проектирование, программирование и создание взаимодействующих приложений для Windows, Mac, iOS, Android и IoT. Создавайте готовые решения корпоративного класса, включая в него разные клиентские native-платформы, мобильные расширения, интеллектуальные устройства, облачные службы, корпоративные и встроенные базы данных.



Группа ВКонтакте   Facebook   Ссылка на Twitter