Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > как бы сделать неотпускаймой кноку на toolbar

Автор: klyaksa 29.6.2011, 18:32

Есть TToolBar, на нем несколько кнопок, кнопкам присвоены action из TActionList. Эти кнопки (команды) позволяют выбрать один из режимов работы. Но повторный щелчок по кнопке отключает ее нажатие (т.е. ничего типа не выбрано), а это нельзя. Также следующий щелчок уже не дает нажать ее, т.е. жмется но не вдавливается.
Команды в TActionList имеют одну GroupIndex <> 0, в ActionList1Update стоит код

Код


  case Mode of
    Mode1: AMode1.Checked := true;
    Mode2: AMode2.Checked := true;
    Mode3: AMode3.Checked := true;
    Mode4: AMode4.Checked := true;
  end;

Но не работает.
Кто подскажет почему?

Автор: klyaksa 29.6.2011, 20:30

Все, вроде, кнопкам на панели Style = tbsCheck и Grouped = True