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

Как узнать Сочетание нажатых клавиш ?   Найти похожие ветки 

← →
titnn ©   (2003-06-04 08:42) [0]

нужно отлавливать длинные сочетания , типа

Ctrl+Shift+Alt+R

причем даже если моя прога не активна ...

плз подскажите , если можно с примерчиком...

---

← →
Ajax ©   (2003-06-04 08:59) [1]

RegisterHotKey...

---

← →
dito ©   (2003-06-06 13:09) [2]

Делай это так:

private
{ Private declarations }
procedure WMHotKey(var msg:TWMHotKey);
message WM_HotKey;


procedure TForm1.WMHotKey(var msg: TWMHotKey);
begin
if msg.HotKey=1 then
begin
//Do smth
end;
if msg.HotKey=2 then
begin
//Do smth
end;
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
RegisterHotKey(Handle,1,MOD_Control,ord("1")); //CTRL+1
RegisterHotKey(Handle,2,MOD_Control,ord("2")); //CTRL+2
end;


procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
UnregisterHotKey(Handle,1);
UnregisterHotKey(Handle,2);
end;

---

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

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



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