Вот так определяю:
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. Но это кнопка "по-умолчанию", и она может быть только одна на форме. Если вас это интересует - пользуйтесь.