Консультация № 63986
24.11.2006, 11:26
0.00 руб.
0 3 3
Здравствуйте, уважаемые эксперты! Подскажите, пожалуйста, как в программе засечь нажатие пробела, и как узнать, что клавижу отпустили? Заранее благодарен!

Обсуждение

Неизвестный
24.11.2006, 12:00
общий
это ответ
Здравствуйте, Андрющенко Вячеслав Васильевич!
Используйте события OnKeyDown и OnKeyUp, которые вызываются при нажатии и отпускании клавиши соответственно.
Неизвестный
24.11.2006, 12:01
общий
это ответ
Здравствуйте, Андрющенко Вячеслав Васильевич!

Если это нужно отследить глобально в программе даже когда программа сама скрыта или минимизирована, то поробовать можно использовать один из компонентов обработки "горячих клавиш".

HotKeyManager 1.6.0 - старенький уже почти, но я пользуюсь .... пока все нормально.
Одна из ссылок на него : http://downloads.delphi32.com/2726/5308/hotkeymg.zip

Благодарю, что выслушал! Удачи !
Неизвестный
24.11.2006, 15:45
общий
это ответ
Здравствуйте, Андрющенко Вячеслав Васильевич!

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key=VK_SPACE then
Label1.Caption:=‘Клавишу нажали‘;
end;

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key=VK_SPACE then
Label1.Caption:=‘Клавишу отпустили‘;
end;
Форма ответа