Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.11.27;
Скачать: CL | DM;

Вниз

Как отловить нажатие комбинации клавиш в системе?   Найти похожие ветки 

 
DELORAC ©   (2005-09-27 16:50) [0]

Как отловить нажатие комбинации клавиш в системе?
Если не очень сложно, помогите с кодом, плиз...
Заранее спасибо!


 
ANB ©   (2005-09-27 17:00) [1]

Хук придется ставить на клавиатуру. Затем ловить кнопки по одной и проверять на комбинацию. Читать статью на этом сайте. Когда поймешь и наступишь на грабли из примера - приходи сюда, поправим.


 
ShiFT   (2005-09-28 06:37) [2]

> DELORAC ©   (27.09.05 16:50)
> Как отловить нажатие комбинации клавиш в системе?
> Если не очень сложно, помогите с кодом, плиз...


тебе твои комбинации клавиш отловить надо??
если да то:
 protected
   procedure hotykey( var msg: TMessage); message WM_HOTKEY;
.....
var
 id : Integer;
.....
procedure TForm1.hotykey(var msg: TMessage);
begin
 if msg.WParam = id then ShowMessage("Ctrl + Q!");
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
 id := GlobalAddAtom( "hotkey");
 RegisterHotKey( handle, id, mod_control, 81);
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
 UnRegisterHotKey( handle, id);
end;


если нет то Хук.


 
DELORAC ©   (2005-09-28 10:28) [3]

Да, мои комбинации клавиш...
Спасибо, разобрался!



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

Текущий архив: 2005.11.27;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.031 c
3-1129119063
ch_victor
2005-10-12 16:11
2005.11.27
TDataSetProvider + Win98


2-1131276773
Tek Noise
2005-11-06 14:32
2005.11.27
Поиск файлов.


14-1131453530
Priest
2005-11-08 15:38
2005.11.27
Подскажите интернет магазин


5-1113916284
giorgi
2005-04-19 17:11
2005.11.27
TPropertyEditor


2-1131106411
12next
2005-11-04 15:13
2005.11.27
Заменить процедуру события OnClick