Создание кнопки реагирующую на нажатие клавиши

[romul_]

Есть небольшое задание (то есть его часть)

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

То есть если клавиша нажата то в программе должна загораться лампочка.

[Terran]

Можете сделать так:

Procedure TForm1.Timer1Timer(Sender: TObject);
Begin
If GetAsyncKeyState(VK_CONTROL) <> 0 Then
Begin
Panel1.Color:=ClRed;
End
Else
Begin
Panel1.Color:=ClBlack;
End;
End;

Это только код к проге, а если нужна сама прога, то пишите.

[romul_]

хм. создал пустую прогу, вывелна неё 2 объекта panel далее прописал эти процедуру, запускаю, жму клавишу - не фурычит =((((

[maladoy]

таймер на нее еще поставь

[Terran]

Сообщение от romul_

хм. создал пустую прогу, вывелна неё 2 объекта panel далее прописал эти процедуру, запускаю, жму клавишу - не фурычит =((((

Всё работает. Вот исходничёк: Прога.rar

[romul_]

всмысле? это где и как7

[romul_]

СПАСИБО. А этот таймер за что отвечает?

[maladoy]

во вкладке систем есть компонент "таймер"

[maladoy]

он через заданный интервал времени проверяет нажатие клавиши

[romul_]

Procedure TForm1.Timer1Timer(Sender: TObject);
Begin
If GetAsyncKeyState(VK_CONTROL) <> 0 Then
Begin
Panel1.Color:=ClRed;
End
Else
Begin
Panel1.Color:=ClBlack;
End;
End;


а можно эту процедуру сделать так, чтобы нажал на Cntr один раз, лампочка стала красной, нажал ещё раз она стала чёрной?