Hi,

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

markieren

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

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().

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.

was ist mit TObjectList?

markieren

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.

Danke,
genau was ich suchte!

Gruß
Alfonso