Помогите с клавиатурой

[mishel]

Помогите, пожалуйста. Никогда не занимался вводом с клавиатуры, в том смысле, что не знаю какими командами руководить вводом. Хотел, чтобы по нажатию клавиши, к примеру "q" приложение закрывалось, как это сделать вообще не рублю.

[mutabor]

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key = 81 then form1.Close;
end;

вот еще http://www.programmersforum.ru/showthread.php?t=4535 посмотри

[mishel]

Проверил, но пишет ошибку мол не объявленный индефикатор FormKeyDown([Error] Unit2.pas(41): Undeclared identifier: 'FormKeyDown')
Пытался объявить, но чето не идет

[ЧИЖ]

во первых formkeydown надо объявить следующим образом
в свойствах формы на закладке events кликни 2 раза по OnKeyDown
и я еще предлагаю по OnKeyUp
и приколи такой код

var
  Form1: TForm1;
  AltPress,CtrlPress,ShiftPress:boolean;
implementation
{$R *.dfm}
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
form1.Caption:='';
if AltPress then form1.Caption:=form1.Caption+'Alt + ';
if CtrlPress then form1.Caption:=form1.Caption+'Ctrl + ';
if ShiftPress then form1.Caption:=form1.Caption+'Shift + ';
case key of
18: AltPress:=true;
17: CtrlPress:=true;
16: ShiftPress:=true;
else form1.Caption:=form1.Caption+inttostr(key);
end;
end;
procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
case key of
18: AltPress:=false;
17: CtrlPress:=false;
16: ShiftPress:=false;
end;
form1.Caption:='';
if AltPress then form1.Caption:=form1.Caption+'Alt + ';
if CtrlPress then form1.Caption:=form1.Caption+'Ctrl + ';
if ShiftPress then form1.Caption:=form1.Caption+'Shift + ';
end;
end.

только вместо изменения Form1.caption вставь свой код который должен выпоняться,
а по этому коду можешь пока определить числовые значения кнопок

[mutabor]

Вообще то для определения нажатий Shift, Ctrl, Alt и кнопок мыши процедура возвращает Shift: TShiftState

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

Проверил, но пишет ошибку мол не объявленный индефикатор FormKeyDown([Error] Unit2.pas(41): Undeclared identifier: 'FormKeyDown')
Пытался объявить, но чето не идет

FormKeyDown это событие формы, срабатывает при нажатии клавиши, FormKeyUp при отпускании, объявляется как и любое другое событие из вкладки Events, передает параметры Key - с кодом нажатой клавиши, Shift - нажатие Shift, Ctrl, Alt клавиш и мыши. Для более подробной информации поставь курсор в коде (в Дельфи) перед TShiftState и нажми F1