Как сделать так, чтобы при минимизации приложения в 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; |
Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.
ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!