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

???... Регистрация   Найти похожие ветки 

← →
Saimon   (2004-01-04 06:55) [0]

Мастера, помогите, ПЛИЗЗЗЗ.

У меня есть следующий код:

unit uHotKey;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,StdCtrls;

type
TForm1 = class(TForm)
procedure FormActivate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
procedure WMHotKey(var Message: TMessage); message WM_HOTKEY;
end;

var
Form1: TForm1;
implementation

{$R *.DFM}
procedure Tform1.WMHotKey(var Message: TMessage);
begin
application.Restore;
application.BringToFront;
showmessage("Нажата Alt+F4!");
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
RegisterHotKey(form1.Handle,123,mod_Alt,vk_F4);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
UnregisterHotKey(Handle, 123)
end;

end.

Он для регистрации "горячих клавиш", но сним у меня проблема - БОЛЕЕ ОДНОЙ КОМБИНАЦИИ Я ЗАРЕГИСТРИРОВАТЬ НЕ МОГУ. Подскажите, ПЛИЗЗЗ, как мне зарегистрировать более одной клавиши???

Заранее благодарен, Saimon.

---

← →
Kair ©   (2004-01-04 10:21) [1]

Id: array [0..255] of Integer;

begin
for i := 0 to 9 do
begin
Id[i] := Glo0balAddAtom("ht"+IntToStr(i));
RegisterHotKey(Handle,id[i],mod_Alt,i);
end;
end;

---

← →
GrayFace ©   (2004-01-05 11:02) [2]

А можно ли не возиться с отдельными клавишами, а ловить все, что нажимается на клаве?

---

← →
Zeqfreed ©   (2004-01-05 18:51) [3]

To GrayFace:
Для этого надо использовать хук (hook).
Посмотри в И-нете FAQ`и и статьи по этой теме. Там их много.

---

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

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



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