Главная страница
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.018 c
14-43870
человек в сети
2004-02-05 01:01
2004.03.14
нужна дока (или исходники) о создании чата для локалки ...


3-43328
Exciter
2004-02-17 02:00
2004.03.14
Ошибка при работе с текстовым блобом.


1-43432
mip
2004-02-25 10:47
2004.03.14
Помогите с Word


1-43541
Valter
2004-02-26 22:10
2004.03.14
Ошибка в RichEdit


1-43531
Woolen
2004-02-28 12:10
2004.03.14
Кряк для восьмерки