direkter Zugriff auf Menüpunkt

[torf160]

Hallo,

ich möchte zur Laufzeit die Eigenschaft "visible" eines Menü-Punktes von false auf true setzen.

Ich habe das jetzt so gemacht:

Delphi-Quellcode:

procedure TForm1.AenderDasMenue;
var i : integer;
begin
    for I := 0 to MainMenu1.Items.Count-1 do
    begin
      if MainMenu1.Items[I].name = 'Daten1' then
     begin
        MainMenu1.Items[I].visible := true;
     end;
    end;
end;

Das klappt auch. Mich würde aber doch interessieren, ob es eine Möglichkeit gibt, den Menü-Punkt auch direkt, über den Namen anzusprechen.
Also etwa so:

MainMenu1.Items['Daten1'].visible := true;
Schon mal vielen Dank für Eure Antworten.

torf160

[himitsu]

Jedes Item ist doch ein eigenes Objekt vom Typ TMenuItem.
Wende dich also einfach direkt an Dieses.
Daten1.Visible := True;

[torf160]

Ich hatte geahnt, dass es einfacher geht.
Aber, dass es soo einfach geht?

Vielen Dank, für die schnelle Antwort.

torf160