| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Button.Default vs. Cancel [Delphi, Windows]

Моторокер ©   (2006-09-26 19:09:00) 

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

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

---

Vladimir Kladov   (2006-09-29 19:28:00) [1]

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

---

Моторокер   (2006-09-29 08:48:00) [2]

Это не просто пожелание, тем более не претензия. Владимир, оч. впечатлён вашей работой, но эти отличия от 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-27 16:02:00) [3]

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

---

Моторокер   (2006-09-27 10:31:00) [4]

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

---

Dimaxx   (2006-09-27 02:41:00) [5]

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

---

Наверх