Hallo Leute
Ich bräuchte die Items von Selbsterzeugten MainMenu Einträgen, das klappt ganz
gut bis auf das er Mir beim Öffnen des MainMenus auch den Namem (Datei) liefert.
Wie könnt Ich das umgehen.
Ich bräucht nur die Items der neu erzeugten.
Hier mal Mein Versuch:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
NewItem: TMenuItem;
begin
Inc(i);
NewItem := TMenuItem.Create(Self);
NewItem.Caption := 'Neuer Eintrag'+IntToStr(i);
Datei.Add(NewItem);
NewItem.OnClick:=DateiClick ;
end;
procedure TForm1.DateiClick(Sender: TObject);
begin
Caption:=TMenuItem(Sender).Caption;
end;