Как, используя THotKey, зарегистрировать горячую клавишу? [D6, WinXP]
Volf_555 © (2006-04-26 14:51:00)
Пробывал так:
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:00) [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;
Наверх 
ЧАТ |
Орешник |
|
