Текущий архив: 2006.06.04;
Скачать: 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 вся ветка
Текущий архив: 2006.06.04;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.07 c
