Как зарегистрировать горячие клавиши?

Delphi , ОС и Железо , Клавиши

Как зарегистрировать горячие клавиши?

Вот код о том как назначить горячие клавиши если даже активна другая программа. Код взят из рассылки "Мастера DELPHI. Новости мира компонент, FAQ, статьи..."

Code:

type 

        TForm1 =  class(TForm) 

        procedure FormCreate(Sender: TObject); 

        procedure FormDestroy(Sender: TObject); 

        protected 

        procedure hotykey(var msg:TMessage); message WM_HOTKEY; 

        end; 

         

        var 

        Form1:  TForm1; 

        id,id2:Integer; 

         

        implementation 

         

        {$R  *.DFM} 

         

        procedure TForm1.hotykey(var msg:TMessage); 

        begin 

        if (msg.LParamLo=MOD_CONTROL) and (msg.LParamHi=81) then 

        begin 

        ShowMessage('Ctrl + Q wurde gedrьckt !'); 

        end; 

        if (msg.LParamLo=MOD_CONTROL) and (msg.LParamHi=82) then 

        begin 

        ShowMessage('Ctrl + R wurde gedrьckt !'); 

        end; 

        end; 

         

        procedure TForm1.FormCreate(Sender: TObject); 

        begin 

        id:=GlobalAddAtom('hotkey'); 

        RegisterHotKey(handle,id,mod_control,81); 

        id2:=GlobalAddAtom('hotkey2'); 

        RegisterHotKey(handle,id2,mod_control,82); 

        end; 

         

        procedure TForm1.FormDestroy(Sender: TObject); 

        begin 

        UnRegisterHotKey(handle,id); 

        UnRegisterHotKey(handle,id2); 

        end;

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

Статья Как зарегистрировать горячие клавиши? раздела ОС и Железо Клавиши может быть полезна для разработчиков на Delphi и FreePascal.

Комментарии и вопросы

Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.

:: Главная :: Клавиши ::

Время компиляции файла: 2024-04-24 22:55:34
2024-04-25 03:32:59/0.006181001663208/2