Главная » 2009 Ноябрь 6 » Выставляем горячие клавиши для Delphi приложения
08:57 Выставляем горячие клавиши для Delphi приложения |
Как сделать так, чтобы при минимизации приложения в Tray его можно было вызвать определённой комбинацией клавиш, например Alt-Shift-F9? view source ? //в обработчике события 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; |
|
Всего комментариев: 7 | ||||||||
| ||||||||