Форум: "Основная";
Текущий архив: 2002.08.15;
Скачать: [xml.tar.bz2];
Вниз
Как организовать выход по Esc? Найти похожие ветки
← →
V.Turecky (2002-08-03 15:31) [0]Добрый день. Хочу чтобы по нажатию на кнопку Esc форма пряталась. Пытался сделать так:
procedure TfrmChange.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key=#27 Then FrmChange.Hide;
end;
Не работает. Что я делаю неправильно?
← →
anatol (2002-08-03 15:36) [1]Nujno postavit" KeyPreview = True;
← →
-=Prior=- (2002-08-03 18:51) [2]У тебя наверное на форме расположены еще другие объекты, плэтому фокус находится не на форме, а на кнопке например!
← →
V.Turecky (2002-08-03 18:56) [3]2 -=Prior=-
Как обойти фокус?
← →
TTCustomDelphiMaster (2002-08-03 20:01) [4]Какие фокусы-покусы?
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key=VK_ESCAPE Then Hide;
end;
+ anatol © (03.08.02 15:36)
← →
V.Turecky (2002-08-03 20:03) [5]Спасибо.
А чем VK_ESCAPE отличаеться от #27 ?
← →
TTCustomDelphiMaster (2002-08-03 21:20) [6]V.Turecky (03.08.02 20:03)
Во первых это разные типы. VK_ESCAPE=27 имеет тип word (или byte или integer), а #27 тип Char. Во вторых, чтобы долго не чесать репу вспоминая какая клавиша имеет код 27 в модуле windows.pas прописаны специальные константы.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.08.15;
Скачать: [xml.tar.bz2];
Память: 0.55 MB
Время: 0.033 c
