горячие клавиши

← →
MegaVoltik (2002-12-10 17:54) [0]

как сделать чтоб по нажатию <Enter> на модальной форме нажималась кнопка ОК, а по нажатию <ESC> кнопка Cancel?

вот этот код не работает;(
procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
case Key of
VK_Escape: btnCancel.Click;
VK_Return: btnOK.Click;
end;
end;

← →
Skier (2002-12-10 17:57) [1]

>MegaVoltik
> как сделать чтоб по нажатию <Enter> на модальной форме нажималась
> кнопка ОК

Самый простой вариант поставить у btnOK.Default := True

← →
Skier (2002-12-10 18:00) [2]

>MegaVoltik
А вариант с VK_Escape должен работать...
Попробуй поставить у формы KeyPreview := True

← →
FreeLancer (2002-12-10 18:15) [3]

для TButton и TBitBtn:
btnCancel.Cancel := true;
btnOK.Default := true;

← →
Юрий Зотов (2002-12-10 18:17) [4]

> Самый простой вариант поставить у btnOK.Default := True

... а у кнопки btnCancel поставить Cancel = True.

И больше ничего не требуется. Никаких KeyPreview и никаких обработчиков.

← →
Skier (2002-12-10 18:19) [5]

>FreeLancer
Да точно ! Св-во Cancel вылетело из головы...:)
>MegaVoltik
см. FreeLancer © (10.12.02 18:15)

← →
MegaVoltik (2002-12-10 19:48) [6]

но вот проблема когда на форме есть другой элемент управления, который имеет фокус ввода, то после завершения редактирования нажатием клавиши <Enter>, нажимается кнопка ОК, и закрывается форма, а если мне нужно продолжать редактировать другой элемент? как быть? снова открывать модальное окно??

← →
Юрий Зотов (2002-12-10 19:56) [7]

Вы какой вопрос задавали?

> как сделать чтоб по нажатию <Enter> на модальной форме
> нажималась кнопка ОК, а по нажатию <ESC> кнопка Cancel?

И как же он увязывается с Вашим постингом (10.12.02 19:48)?

Никак. Так что Вы уж определитесь, что же Вам все-таки нужно - ехать или шашечки?

← →
MegaVoltik (2002-12-10 20:43) [8]

тогда всем большое спасиба, особенно Юре Зотову

горячие клавиши Найти похожие ветки