Как сделать default-кнопку?

← →
Alextp © (2005-10-18 16:48) [0]

Чайниковский вопрос: как задать, чтобы форма реагировала на нажатия Enter/Esc, делая клик соотв-щей дефолтовой кнопкой? Сделал две кнопки, установил св-ва DefaultBtn и CancelBtn - не нажимаются.
В VCL было достаточно установить для кнопок default/cancel, а здесь как?

← →
ECM © (2005-10-19 17:53) [1]

Порообуйте почитать
http://www.delphimaster.ru/cgi-bin/forum.pl?n=10&search=d2005

у меня, к сожалению (?) , нет D2005 ... :)

← →
ECM © (2005-10-19 17:54) [2]

сорри не туда запостил...

← →
ECM © (2005-10-19 18:01) [3]

А по Вашему вопросу... да, там что-то действительно не так
... хотя должно было бы работать - что-то перемудрили со свойством
IgnoreDefault... я думаю в сл. версиях поправим...:)

← →
ECM © (2005-10-19 18:13) [4]

А пока - ИМХО: перхватывайте нажатие ENTER,ESC в OnMessage формы

← →
ECM © (2005-10-20 13:36) [5]

> что-то перемудрили со свойством
> IgnoreDefault...

Проверил - нет, тут всё в порядке. Беру свои слова обратно.

> Сделал две кнопки, установил св-ва DefaultBtn и CancelBtn
> - не нажимаются.
> В VCL было достаточно установить для кнопок default/cancel,
> а здесь как?

Не нажиматься они могут, наверное из-за того, что фокус установлен на контроле у которого IgnoreDefault = TRUE. (Кстати это default значение для
KOLButton,KOLBitBtn,KOLEditBox,KOLRichEdit). Просто установите его в FALSE

Нашел решение: надо перекомпилировать KOL с define-ами:
{$Define ALL_BUTTONS_RESPOND_TO_ENTER}
{$Define ESC_CLOSE_DIALOGS}
Тогда Enter/Esc в диалогах нажимаются.
Насчет IgnoreDefault - спасибо, посмотрю.

← →
Vladimir Kladov (2005-10-23 16:07) [7]

извините, а вы опции прямо в KOL.pas вставляете? вообще-то Project | Options | Conditionals & Directories | Defines. Вот туда и надо, чтобы не трогать исходник.

Как сделать default-кнопку? Найти похожие ветки