Как сделать закрытие формы по нажатию Esc?

← →
vodvorezlaya © (2006-09-29 10:22) [0]

Доброго времени суток.

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

не работает когда на форме есть другие компоненты.

Как правильно сделать.

Спасибо.

← →
Elen © (2006-09-29 10:24) [1]

Выставь form1.keyPreview:=true

← →
ASoft (2006-09-29 10:26) [2]

кажется, TForm2. - не главная форма, главная по всей видимости form1, что не есть гуд.... иначе..
эм, обработчик надо не FormKeyPress(), а FormKeyDown()..."key=27"

← →
Elen © (2006-09-29 10:28) [3]

> ASoft

+ к этому Тогда Application.terminate чтоб наверняка

← →
MsGuns © (2006-09-29 14:00) [4]

Блин, советчики..
Чего вы фигню полную советуете ? Клавиша Esc может быть многократно заюзана приложением в разных контекстах, т.к. интуитивно "близка" пользователям.

Проблема с закрытием формы по нажатию Esc решается примитивным образом - через Action, в обработчике которого стоит проверка возможности закрытия формы (а тем более приложения) и, если можно, то Close главной формы.

И еще. Давать Application.Terminate из неглавной формы - такая же хреновая манера, как пИсать с балкона - типа пофиг кто там внизу.

> Блин, советчики..

Добро пожаловать в клуб любителей посоветовать ... :D

← →
ASoft (2006-09-29 18:39) [6]

Чего вы фигню полную советуете [4]
зачем ж так опрометчиво :) чел спросил как закрыть форму эскейпом и где видно, что в [0]Esc может быть многократно заюзана приложением в разных контекстах,
а говоря кажется, TForm2. - не главная форма, главная по всей видимости form1, что не есть гуд.
я имел в виду, нечто подобное этому: Давать Application.Terminate из неглавной формы - такая же хреновая манера, как

Как сделать закрытие формы по нажатию Esc? Найти похожие ветки