Как выполнить AutoCheck всех пунктов MainMenu!

← →
mctarik © (2006-05-09 07:53) [0]

Здравствуйте уважаемые!

Есть MainMenu1 с несколькими MenuItem (12 пунктов меню)
А Теперь вопрос:

Как при AutoCheck последнего пункта сделать срабатывание AutoCheck
оставшихся 11 пунктов меню?

Типа этого
***
if AllCheck.AutoCheck then ... {оставшихся 11 пунктов}
***

Я понимаю что надо создать массив MenuItem"ом, не пока опыта в создании
подобного очень мало, вернее совсем Нет!

С Уважением mctarik!

← →
AlexanderMS © (2006-05-09 08:53) [1]

> Как при AutoCheck последнего пункта сделать срабатывание
> AutoCheck
> оставшихся 11 пунктов меню?

В смысле, срабатывание?

ПунктX.Autocheck := true?

← →
mctarik © (2006-05-09 20:00) [2]

> AlexanderMS © (09.05.06 08:53) [1]

В смысле как нажать сразу все 11 пунктов меню при нажатии 12 того путкта.

← →
AlexanderMS © (2006-05-09 20:07) [3]

Тогда при чём здесь AutoCheck? Нужно вызвать обработчик OnClick, а если пункты - пункты-переключатели, то установить ПунктX.Checked := not ПунктX.Checked.

> Я понимаю что надо создать массив MenuItem"ом

Верно, нужно при инициализации приложения (событие OnCreate формы) сделать
ArMn[1] := Пункт1; ArMn[2] := Пункт2; ........................... ArMn[12] := Пункт12;

Предварительно указать

Var ArMn : array[1..12] of TMenuItem.

Затем работать с циклами.

← →
jb (2006-05-09 20:30) [4]

Короче допустим у тебя есть MenuItem1:TMenuItem - он находится в строке меню, когда на него жмешь выплывает SubMenu, в нем 12 пунктов, если выбран 12-й то надо проставить или убрать галочки всех 12:
for i:=0 to MenuItem1.Count-2 do begin MenuItem1.Items[i].Checked:=TMenuItem(Sender).Checked; // если надо, можно вызвать OnClick каждого MenuItem if Assigned(MenuItem1.Items[i].OnClick) then MenuItem1.Items[i].OnClick(MenuItem1.Items[i]); end;

Спасибо!

А вам
> jb (09.05.06 20:30) [4]

Огромное, всё Оке"й!

Как выполнить AutoCheck всех пунктов MainMenu! Найти похожие ветки