Теперь, нам нужно отловить минимизацию приложения, для того, чтобы заменить стандартное действие Windows на "свёртывание в трей". Объявляем в секции protected процедуру
|
Code: |
|
protected
procedure ControlWindow(var Msg: TMessage); message WM_SYSCOMMAND; ... procedure TForm1.ControlWindow(var Msg: TMessage); begin if Msg.WParam = SC_MINIMIZE then begin Ic(1, Application.Icon); // Добавляем значок в трей ShowWindow(Handle, SW_HIDE); // Скрываем программу end else inherited; end; |
Теперь нам нужно, чтобы значок в трее мог реагировать на манипуляции с ним. Если Вы внимательно посмотрите процедру Ic(), то Вы увидите там ссылку на сообщение WM_USER+1. Это не что иное, как сообщение, которое приходит нам от этого значка. Обычно для значка в трее делают всплывающее меню и выводят там те или иные действия. Но TPopUpMenu делается обычно для правой кнопки, по левой же просто активируют приложение. На форму кидаем комопонент TPopUpMenu (пусть это будет PopUpMenu1) и заносим в него все пункты меню, которые мы хотим, чтобы онм появилис в меню, которое будет всплывать по нажатию правой кнопки на значке.
После этого описываем обработчик: В вышеназванную секцию protected добавляем ещё одну процедуру IconMouse, которая будет реагировать на сообщение WM_USER+1
|
Code: |
|
protected procedure ControlWindow(var Msg: TMessage); message WM_SYSCOMMAND; procedure IconMouse(var Msg: TMessage); message WM_USER + 1; |
Теперь описываем собственно процедуру.
Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.
ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!