Выставляем горячие клавиши для Delphi приложения

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

//В обработчике события 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;
 
faq/delphi/system/system_hot_key_for_application.txt · Последнее изменение: d.m.Y H:i — 127.0.0.1
 
Recent changes RSS feed Donate Powered by PHP Valid XHTML 1.0 Valid CSS Driven by DokuWiki