Вопрос по меню

← →
КАРО (2007-01-31 09:33) [0]

Есть меню, состоящее из некоторого числа подменю, допустим их 10. Как бы сделать покрасивше такую штуку: когда выбран определенный пункт меню делать его неактивным, остальные соответственно активные, выбираем другой пункт меню - он становится неактивным, остальные - активные. Можно конечно тупо под каждую менюшку написать чтото типа:

Menu1.Enable := Flase; Menu2.Enable := True; Menu3.Enable := True; .............. Menu10.Enable := True;

но это блин такой код длинный и некрасивый получается, может можно как-то поэлегантнее? :)

← →
Separator © (2007-01-31 09:35) [1]

перебрать все дочернии объекты родительсткого меню и выставить enable:= true, а у объекты вызвавшего эту процедуру выставить enable:= false

← →
Tornado © (2007-01-31 09:39) [2]

> Separator © (31.01.07 09:35) [1]

хм...маленький примерчик бы... :)

← →
Elen © (2007-01-31 10:02) [3]

> хм...маленький примерчик бы... :)

Не вопрос : Эту проц ты должен определить для всех пунктов меню.

procedure TForm1.N4Click(Sender: TObject); var i:integer; begin //********* FOR ****************** for i :=0 to TMenuItem(sender).Parent.Count-1 do begin TMenuItem(sender).Parent.Items[i].Enabled:=true; end; //******* END FOR ****************{} TMenuItem(sender).Enabled:=false; end;

вот спасиба!

Вопрос по меню Найти похожие ветки