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

Материал из DRKB

Выставляем горячие клавиши для 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;


Source: Взято с Vingrad.ru http://forum.vingrad.ru
ID: 01524