Как сделать так, чтобы при минимизации приложения в Tray его можно было вызвать определённой комбинацией клавиш, например Alt-Shift-F9 ?

Code:

//В обработчике события OnCreate

//основной формы создаём горячую клавишу:

 

If not RegisterHotkey

  (Handle, 1, MOD_ALT or MOD_SHIFT, VK_F9) Then

   ShowMessage('Unable to assign Alt-Shift-F9 as hotkey.');

 

//В событии OnClose удаляем горячую клавишу:

 

UnRegisterHotkey( Handle, 1 );

 

//Добавляем обработчик в форму для сообщения

//WM_HOTKEY:

 

private // в секции объявлений формы

   Procedure WMHotkey( Var msg: TWMHotkey );

     message WM_HOTKEY;

 

Procedure TForm1.WMHotkey( Var msg: TWMHotkey );

Begin

   If msg.hotkey = 1 Then Begin

     If IsIconic( Application.Handle ) Then

       Application.Restore;

     BringToFront;

   End;

End;

 

Добавить комментарий

Не использовать не нормативную лексику.

Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.

ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!


Защитный код
Обновить