Menüeinträge deaktivieren ausblenden / deaktivieren

[Alfonso]

Hi,

ich möchte für bestimmte Anwender fast alle Menüeinträge deaktivieren bzw. verstecken.
Anstatt folgendes zu scheiben:

Code:

mnuX1.Visible:=false;
mnuX2.Visible:=false;
mnuX3.Visible:=false;
mnuX4.Visible:=false;
...
mnuX30.Visible:=false;

möchte ich über eine Schleife alle Menüs des Mainmenu ausblenden und dann vernzelt wieder einblenden.

Wie löse ich das?
Gruß
Alfonso

[implementation]

Ich sehe da zunächst 2 Möglichkeiten:

a) Du schmeißt die Menüpunkte in ein Array, das du dann mit der Laufvariable indizierst.

b) Du benutzt das langsame FindComponent().

[Satty67]

Statt Array bietet sich auch TActionList an, dann wären mit zugeordnete ToolBar-Buttons auch gleich behandelt. Gruppen sind auch mit drin...

Wenn Array oder ähnliches, dann evtl. Tag-Eigenschaft als Gruppen-Indikator.

[Chillkröte]

was ist mit TObjectList?

[BUG]

Delphi-Quellcode:

var i:integer;
// ...
for i := 0 to MainMenu1.Items.Count-1 do MainMenu1.Items[i].Visible:= false;

Die TMenuItems haben auch eine Items Eigenschaft, du könntest also auch das gesamte Menü rekursiv durchlaufen.

[Alfonso]

Danke,
genau was ich suchte!

Gruß
Alfonso