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

Вниз

Срабатывание OnKeyPressed,когда форма не активна   Найти похожие ветки 

 
MakedoneZ ©   (2005-06-22 13:09) [0]

Как сделать так,чтоб событие OnKeyPressed,срабатывало не только когда форма активна,а вообще при работе программы.
Если можно на примере,пожалуйста.
Заранее спасибо.


 
Darkwing ©   (2005-06-22 13:14) [1]

Надо включить Form1.KeyPreview := true


 
MakedoneZ ©   (2005-06-22 13:22) [2]

procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.KeyPreview:=true;
end;

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
ShowMessage(Key);
end;

Не работает.
Я что-то не так сделал?
Help Plzz.


 
Darkwing ©   (2005-06-22 13:25) [3]

KeyPreview включи в ObjectInspector, а не при создании. У меня все вроде работает.


 
Darkwing ©   (2005-06-22 13:27) [4]

И, разумеется, не будет работать если активно другое приложение.


 
MakedoneZ ©   (2005-06-22 15:06) [5]

А как сделать чтоб работало,даже когда активно другое приложение?


 
DVM ©   (2005-06-22 15:07) [6]


> А как сделать чтоб работало,даже когда активно другое приложение?

Ловушку поставить WH_KEYBOARD


 
Virgo_Style ©   (2005-06-22 15:14) [7]

Возможно, подойдет RegisterHotKey?


 
MakedoneZ ©   (2005-06-22 15:15) [8]


> Ловушку поставить WH_KEYBOARD

Друг,я видать не так в этом деле силен как ты. :)
Не пояснишь как это использовать WH_KEYBOARD.


 
DVM ©   (2005-06-22 17:48) [9]


> MakedoneZ ©

http://www.delphikingdom.ru/asp/viewitem.asp?catalogid=548&mode=print



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

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

Наверх




Память: 0.48 MB
Время: 0.048 c
1-1118836041
kot
2005-06-15 15:47
2005.07.11
Code snippets D9


14-1118667514
emfw
2005-06-13 16:58
2005.07.11
Зарплата


3-1117024134
Layner
2005-05-25 16:28
2005.07.11
Access+Insert в Delphi7, в ADOQuery.


3-1117083371
Iova
2005-05-26 08:56
2005.07.11
Можно ли какнибудь избавться от связей?


6-1112888304
Egorr
2005-04-07 19:38
2005.07.11
Шифрование траффика-TIdMappedPortTCP