Button.Default vs. Cancel

← →
Моторокер (2006-09-26 19:09) [0]

VCL разрешает кнопке TButton присваивать оба значения.
Странно, что в KOL это не так.
Кнопка может срабатывать и на Esc и на Enter, никаких проблем.

В отличие от VCL, где нажатие Esc никак не показано, в KOL кнопка нажимается визуально. Зачем? Хочется стандартного, обычного её поведения.

← →
Dimaxx © (2006-09-27 02:41) [1]

Не нравится - используй VCL...

← →
Моторокер (2006-09-27 10:31) [2]

Плохой ответ, ни о чём. Так на половину вопросов можно ответить, если не больше. Флуд короче.

← →
Vladimir Kladov (2006-09-27 16:02) [3]

Есть ответ лучше. Предложите свой вариант кода, если изменений много - сделаем через IFDEF. Претензии предъявлять смысла не вижу, все равно никто не бросится удовлетворять просто пожеланиям.

← →
Моторокер (2006-09-29 08:48) [4]

Это не просто пожелание, тем более не претензия. Владимир, оч. впечатлён вашей работой, но эти отличия от VCL не мелкие. Вы везде стараетесь сократить код, но здесь он похоже не нужен.

Допустим, есть диалог О программе.
В VCL поставили кнопку, присвоили свойства Default=true и Cancel=true, написали Close на onClick и уже всё работает.

Непонятно, почему в KOL специально сделано так, что нельзя присвоить эти свойства одновременно true.

//[procedure TControl.SetDefaultBtn] procedure TControl.SetDefaultBtn(const Index: Integer; const Value: Boolean); var F, C: PControl; begin if Index = 13 then begin fDefaultBtn := Value; fCancelBtn := FALSE; end else if Index = 27 then begin fCancelBtn := Value; fDefaultBtn := FALSE; end;

как понимаю, код отвечает этот? он здесь лишний? ведь кому надо, тот сам присвоит свойствам разные значения.

Про визуальное нажимание кнопки код пониже? Этот?
if Index = 13 then begin F.fDefaultBtnCtl := C; if Value then Style := Style or BS_DEFPUSHBUTTON else Style := Style and not BS_DEFPUSHBUTTON; end
Тоже наверно можно опустить?

← →
Vladimir Kladov (2006-09-29 19:28) [5]

Можно и убрать внутрь ifdef (вдруг кому-нибудь такое именно поведение надо). Собственно, когда я этот код добавлял года 2 назад, на VCL я уже не смотрел (и собственно первый раз узнал от Вас, что Default и Cancel могут быть вместе. Мне просто никогда не приходилось такое сочетание использовать). Что касается визуального нажатия, то я тоже сделал, как мне казалось, должно быть. В разных средах получаются программы с несколько отличающимся поведением. Например в MSVC получаются окна, которые после первого клика, если приложение было не активно до этого, просто активируются. А реагируют только тогда когда уже активны. Может и безопасно, но для использования нескольких РАЗНЫХ программ одновременно бывает очень неудобно. Сделаем.

Button.Default vs. Cancel Найти похожие ветки