Мастера DELPHI, Delphi programming community Рейтинг@Mail.ru Титульная страница Поиск, карта сайта Написать письмо 
| Новости |
Новости сайта
Поиск |
Поиск по лучшим сайтам о Delphi
FAQ |
Огромная база часто задаваемых вопросов и, конечно же, ответы к ним ;)
Статьи |
Подборка статей на самые разные темы. Все о DELPHI
Книги |
Новинки книжного рынка
Новости VCL
Обзор свежих компонент со всего мира, по-русски!
|
| Форумы
Здесь вы можете задать свой вопрос и наверняка получите ответ
| ЧАТ |
Место для общения :)
Орешник |
Коллекция курьезных вопросов из форумов
KOL и MCK |
KOL и MCK - Компактные программы на Delphi

Дата: 02.06.00


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


Примечание: В данном примере при потере фокуса формой, 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;


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

Чтобы вернуться оцените этот вопрос/ответ:
   

Прислать свои комментарии


Новое на сайте

Наверх

  Рейтинг@Mail.ru     Титульная страница Поиск, карта сайта Написать письмо