VPF::Горячие клавиши - Форум программистов

Vit

Дата 8.6.2002, 14:59 (ссылка)

(нет голосов)

Загрузка ...

Vitaly Nevzorov

Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 48
Всего: 207

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

Код


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;

--------------------

With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »