Недавно добавленные исходники

•  DeLiKaTeS Tetris (Тетрис)  3 923

•  TDictionary Custom Sort  6 028

•  Fast Watermark Sources  5 818

•  3D Designer  8 638

•  Sik Screen Capture  6 150

•  Patch Maker  6 589

•  Айболит (remote control)  6 580

•  ListBox Drag & Drop  5 441

•  Доска для игры Реверси  95 365

•  Графические эффекты  6 794

•  Рисование по маске  5 965

•  Перетаскивание изображений  4 968

•  Canvas Drawing  5 341

•  Рисование Луны  5 066

•  Поворот изображения  4 607

•  Рисование стержней  3 266

•  Paint on Shape  2 506

•  Генератор кроссвордов  3 397

•  Головоломка Paletto  2 698

•  Теорема Монжа об окружностях  3 493

•  Пазл Numbrix  2 294

•  Заборы и коммивояжеры  2 985

•  Игра HIP  1 945

•  Игра Go (Го)  1 858

•  Симулятор лифта  2 207

•  Программа укладки плитки  1 929

•  Генератор лабиринта  2 368

•  Проверка числового ввода  2 054

•  HEX View  2 376

•  Физический маятник  2 009

 
скрыть

  Форум  

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

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



Delphi Sources

WM_ACTIVATE



Сообщение посылается, когда окно переводится в активное или неактивное состояние. Сначала посылается окну, переходящему в неактивное состояние, а потом - активируемому.

Параметры:

  • Active - показывает состояние, приобретаемое окном, а именно активизируется или деактивизируется окно. Тип параметра Word
    • WA_ACTIVE - окно активизируется не щелчком мыши
    • WA_CLICKACTIVE - окно активизируется щелчком мыши
    • WA_INACTIVE - окно деактивизируется
  • ActiveWindow - дескриптор, который указывает на окно, из которого фокус переключился на данное окно, если оно активируется, или на окно, в которое передается управление, если данное окно деактивируется. Тип параметра HWND
  • Result - возвращаемое значение. Если приложение обрабатывает это сообщение, оно должно возвращать нуль. Тип параметра Integer
  • Minimized - свидетельствует о том, что окно минимизировано. Тип параметра WordBool

Действие по умолчанию

Если активируемое окно не свернуто, то оно получает фокус.

Примечания

Если окно активируется щелчком мыши, оно получает также сообщение WM_MOUSEACTIVATE.

Давайте рассмотрим пример использования этого сообщения. Например у нас есть GroupBox собственного производства. Его состав таков: на заднем плане находится панель (компонент класса TPanel). Его свойство BevelOuter установлено в bvLowered, а свойство BevelInner равно bvRaised - в итоге получается такая вогнутая каемка, как показана на рисунке. Сверху на эту панель была вынесена ещё одна, которая является заголовочной и по сценарию её цвет должен меняться вместе с заголовочной полосой, в зависимости от того становиться ли главное окно приложения активным или неактивным. У этой панели свойство BevelOuter установлено в bvRaised, а свойство BevelInner равно bvNone. На эту панель выносится метка (компонент TLabel), её свойству Align присваиваем alClient, а свойству Alignment - taCenter, чтобы метка выравнилась по всей области панели, а её заголовок находился в центре.

Как же заставить панель изменять цвет?

Сначала нужно в частных объявлениях объявить процедуру обработки данного сообщения


private
  { Private declarations }
  procedure wmActivate (var Msg:TWMACTIVATE);
  message wm_Activate;

В области реализации (implementation) её нужно описать так


procedure TForm1.WMActivate (var Msg:TWMActivate);
begin
  {если окно получило фокус ввода по щелчку мыши или как иначе...}
  if (Msg.Active = WA_ACTIVE) or (Msg.Active = WA_CLICKACTIVE)then
  begin
    {...тогда цвет панели делаем равным цвету активной заголовочной полосы окна}
    Panel1.Color := clActiveCaption
  {иначе...}
  else
    {...цвет панели будет соответствовать НЕактивной заголовочной полосе окна}
    Panel1.Color := clInactiveCaption;
  inherited;
end;

Если из главного окна вызывается другое, и мы хотим в тот момент, когда оно теряет фокус ввода - минимизировать его, нужно код реализации процедуры немного изменить:


procedure TForm1.WMActivate (var Msg:TWMActivate);
begin
  if (Msg.Active = WA_ACTIVE) or (Msg.Active = WA_CLICKACTIVE)then
  begin
    Panel1.Color := clActiveCaption;
    {сворачиваем второстепенное окно, когда оно теряет фокус ввода}
    ShowWindow(Msg.ActiveWindow, sw_minimize);
  end
  else
  begin
    Panel1.Color := clInactiveCaption;
    {восстанавливаем второстепенное окно, когда оно активизируется}
    ShowWindow(Msg.ActiveWindow, sw_restore);
  end;
  inherited;
end;

Обратите внимание на ключевое слово inherited, которое позволяет посланное сообщение обработать процедуре класса предка.








Copyright © 2004-2025 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте