kleines menü problem

[Markus K.]

Hier ist noch eine andere Möglichkeit, welche alle Items des MainMenu durchsucht.

Delphi-Quellcode:

var MenuINIfile:TMenuItem;
    Lauf:Integer;
begin
     MenuINIfile:=TMenuItem.Create(MainMenu1);
     for Lauf:=0 to MainMenu1.Items.Count-1 do
     begin
          MenuINIfile:=MainMenu1.Items.Items[Lauf].Find('Neu');
     end;
     if MenuINIfile.Checked then ShowMessage('..') else ShowMessage('..');
end;

Tschüß Markus