Закрытие формы при нажатии ESC

← →
ser35 (2005-03-14 10:52) [0]

Хочу, чтобы при нажатии клавиши закрылась форма. Сделал так:
procedure TForm13.FormKeyPress(Sender: TObject; var Key: Char); begin if key=#27 then Form13.Close; //Если эскейп, то закрываю end;Не закрывается. Подскажите ошибку

← →
Плохиш © (2005-03-14 10:57) [1]

Убрать Form13

← →
begin...end © (2005-03-14 10:58) [2]

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

И не забудьте свойство KeyPreview формы установить в True.

← →
wicked © (2005-03-14 10:58) [3]

procedure TForm13.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if key=VK_ESCAPE then Close; //Если эскейп, то закрываю
end;

← →
Anatoly Podgoretsky © (2005-03-14 11:05) [4]

Зачем?
Есть же соответсвующие свойства у кнопок, вот его надо и установить, а код выкинуть.

← →
XP (2005-03-14 11:09) [5]

Есть же соответсвующие свойства у кнопок, вот его надо и установить, а код выкинуть.

Не всякая форма имеет кнопки (TButton и иже с ними).

← →
Anatoly Podgoretsky © (2005-03-14 11:17) [6]

А не надо издеваться над пользователем.
Если нет, то добавить, нормальная форма должна иметь две кнопки - Отмена и Нормально завершение.

← →
ser35 (2005-03-14 11:19) [7]

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

← →
XP (2005-03-14 11:34) [8]

...нормальная форма должна иметь две кнопки - Отмена и Нормально завершение.

Жаль только, что ни в Microsoft, ни в Borland этого не знают. А то обязательно разместили бы на каждую форму эти "две кнопки". Пока додумались только до "Закрыть" в верхнем правом углу формы.

← →
TUser © (2005-03-14 12:04) [9]

ActionList

← →
Anatoly Podgoretsky © (2005-03-14 12:17) [10]

XP (14.03.05 11:34) [8]
Странные у тебя формы от Microsoft и Borland, у меня с кнопками, там где ввод или какие действия не предусмотренны, там одна кнопка. Я пытался вспомнить хоть одну форму без кнопок - не смог.

> Я пытался вспомнить хоть одну форму без кнопок - не смог.

Debug Windows, например.
Да и форма может быть главной и закрываться при нажатии Esc.
Тогда, конечно, применяют другие методы, но все же.

← →
XP (2005-03-14 12:33) [12]

Я пытался вспомнить хоть одну форму без кнопок - не смог.

Это как-то называется. Только вот как? Не могу вспомнить.
А по поводу двух кнопок - пытался найти в окне Internet Explorer, окнах документов Word, Excel, в Проводнике, опять же, кнопки "Отмена" и "Нормальное завершение" - не нашел.
Есть только "Закрыть" в все том же правом верхнем углу, да еще "Закрыть" в меню, которое дублирует кнопку.
Может, в этих программах не предусмотрены действия или ввод?
Ну, тогда другое дело...

P.S. Дайте салфетку - очки протру, что ли?
P.P.S. Повторюсь: не всякая форма имеет кнопки (TButton и иже с ними).

> P.P.S. Повторюсь: не всякая форма имеет кнопки (TButton и иже с ними).
Не всякая форма закрывается по Esc.

← →
XP (2005-03-14 13:26) [14]

Не всякая форма закрывается по Esc.

В контексте данной ветки - закрывается по Esc, потому что автор так написал: "Хочу".
И о кнопках не сказал ничего. Ну совершенно ничего.

> автор так написал: "Хочу"

А автору намекнули, что, скорее всего, у него неверно реализован пользовательский интерфейс.

Закрытие формы при нажатии ESC Найти похожие ветки