HiAsm

Форумы Помощь по пакету Событие onEnter для Button ← Ctrl12Ctrl →

Ответов: 1946

Рейтинг: 174

#1: 2017-09-16 20:32:58 ЛС | профиль | цитата

Почему-то ALL_BUTTONS_RESPOND_TO_ENTER работать не хочет, хотя есть в KOL.

Вот так определяю:

procedure THIButton.Init;
begin
   {$DEFINE ALL_BUTTONS_RESPOND_TO_ENTER}
   Control := NewButton(FParent,_prop_Caption);
   Control.OnClick := _OnClick;
   Control.DefaultBtn := _prop_DefaultBtn;
   Control.Style := Control.Style or BS_MULTILINE;
   inherited;
end;

И бесполезно. Знатоки, в чём тут дело?

--- Добавлено в 2017-09-16 20:45:28

Tri-j, для вас: у кнопки есть св-во DefaulBtn, с которым она реагирует на Enter. Но это кнопка "по-умолчанию", и она может быть только одна на форме. Если вас это интересует - пользуйтесь.

карма: 10

Учебник по HiAsm | Видеоуроки | Мои программы

Редактировалось 2 раз(а), последний 2017-09-16 20:45:28

Форумы Помощь по пакету Событие onEnter для Button ← Ctrl12Ctrl →