Оригинальный DVD-ROM: eXeL@B DVD !
eXeL@B ВИДЕОКУРС !

ВИДЕОКУРС ВЗЛОМ
выпущен 3 апреля!


УЗНАТЬ БОЛЬШЕ >>
Домой | Статьи | RAR-cтатьи | FAQ | Форум | Скачать | Видеокурс
Новичку | Ссылки | Программирование | Интервью | Архив | Связь

БОЛЬШОЙ FAQ ПО DELPHI



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




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Оригинальный DVD-ROM: eXeL@B DVD !


Вы находитесь на EXELAB.rU
Проект ReactOS