Скачать: CL | DM;

Как, используя THotKey, зарегистрировать горячую клавишу?   Найти похожие ветки 

← →
Volf_555 ©   (2006-04-26 14:51) [0]

Пробывал так:
procedure TForm1.Button3Click(Sender: TObject);
var
id:Integer;
begin
id:=GlobalAddAtom("hotkey");
RegisterHotKey(handle,id,hotkey1.Modifiers,hotkey1.HotKey);
end;
Вы скакивает ошибка:  [Error] Unit1.pas(76): Incompatible types: "Cardinal" and "THKModifiers"
Как корректно зарегистрировать горячую клавишу, используя компонент THotKey?

---

← →
AbrosimovA ©   (2006-04-26 15:34) [1]

procedure TMainForm.mnWMHotkey( Var msg: TWMHotkey );
begin
if msg.hotkey = 100 then Show;
end;

procedure TMainForm.FormCreate(Sender: TObject);
begin
RegisterHotkey(Handle,100,0,VK_F11);
end;

procedure TMainForm.FormDestroy(Sender: TObject);
begin
UnRegisterHotkey(Handle,100);
end;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.026 c