Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.03.14;
Скачать: 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 вся ветка

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

Наверх




Память: 0.47 MB
Время: 0.029 c
9-43242
Savenych
2003-07-21 06:42
2004.03.14
Где найти спрайты?


4-43947
kor@lex
2004-01-07 12:55
2004.03.14
Caption Bar


7-43926
KIE
2003-12-22 13:54
2004.03.14
Работа с модемом


1-43573
Senti
2004-02-27 16:30
2004.03.14
Переключение сигнала на телевизор через TV-OUT


11-43417
BelchonokH
2003-06-26 21:32
2004.03.14
form.close или form.free?