клавиатура с Delphi

[Илюха]

Хай программисты!! У меня возник вопросец: Как мне сделать свяску клавы с делфи?? Например: при нажатии на кнопку Esc программа закрывалась??

Зарание благодарен

[AlDelta]

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

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key=#27 then Close;
end;

[V-int]

или...
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=vk_escape then close;
end;

[Илюха]

спасибо!! щас буду тестировать на практике

[GAGARIN-NEW]

или так
сделай кнопку присвой button1.cancel := true ;
и всегда при нажатии esc будет происходить нажатие кнопки а в его событии и пиши что хочеш =)