Закрытие окна при нажатии опр. клавиши на клавиатуре.

[Borgond]

Здравствуйте!

Меня зовут Владимир. Я создал форму, которую хочу закрыть при нажатии клавиши "Esc" - это 27 клавиша на клавиатуре.
В итоге:
"procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key=#27 then form1.Close;
end;" - НЕ ЗАКРЫВАЕТ.

Попробовал такую же систему с ListBox:
"procedure TForm1.ListBox1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#27 then form1.Close;
end;" - ПОЛУЧИЛОСЬ.

Но для того чтобы код среагировал, мне нужно дать фокус ЛистБоксу, а я хотел чтобы он сразу закрывался без дачи кому-либо фокуса.

Может кто-нибудь подсказать как так сделать????

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

[DIgorevich]

Ну выбери, к примеру, procedure TForm1.ListBox1KeyPress и в обработчике FormKeyPress

[W0LF]

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

- НЕ ЗАКРЫВАЕТ.

А у меня закрывает...

[spamer]

Странно, все работает..ну можете еще попробовать вот так:

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

[Borgond]

Спасибо за ответы.

Ну выбери, к примеру, procedure TForm1.ListBox1KeyPress и в обработчике FormKeyPress

Я по моему так и сделал:

"procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key=#27 then form1.Close;
end;" - НЕ ЗАКРЫВАЕТ.

А у меня закрывает...

Хммм, странно ....

Странно, все работает..ну можете еще попробовать вот так:
Код:

Пробовал, не помогло. Разница здесь лишь в том, что при "KeyPress" действие произойдёт только после отпуская клавиши, а при "KeyDown" сразу при нажатии. Вроде так.

[Sibedir]

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

[Borgond]

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

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

Огромное спасибо!
Я как раз думал, "может он просто не видит моего кода, ну т.е. нет возможности его выполнить, запрещено например?!".
Ещё раз спасибо тебе!!!