MainMenu - Dynamisch - Itemsabfrage

[Blackheart]

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;

[SirThornberry]

ich versteh die Frage nicht? Willst du eine Datei auswählen? Oder von welcher Datei willst du den Namen?

[Blackheart]

Ich hab ein MainMenu
Das sieht in etwa so aus

Code:

[b]Datei[/b]
Neu          Fest
Öffnen       Fest
Speichern    Fest
Irgendwas1   Dynamisch
Irgendwas2   Dynamisch
Irgendwas3   Dynamisch

Jetzt möchte Ich beim Klick auf Irgendwas den String haben
Ich hab Datei - NewItem.OnClick zugewiesen das, das überhaupt klappt.
jetzt zeigt er Mir bei Klick auf Datei (Datei)an was Ich nicht möchte.
Ich möchte das er Mir nur bei Klicks auf Dynamisch erstellter Einträge
die Strings anzeigt.

Ich hab das jetzt erstmal so gelöst das Ich ein Trenner (Horizontale Linie)eingefügt hab und der das OnKlick zuweise scheint zu klappen.

Aber falls noch Wer ne andere Idee hätte, hätt Ich Sie gern gewusst.
Danke

[shmia]

Du musst natürlich einen eigenen Eventhandler für deine dynamischen Menuitems erstellen:

Delphi-Quellcode:

procedure TForm1.DynamikMenuItemClick(Sender: TObject); 
begin 
  Caption:= '*** '+TMenuItem(Sender).Caption+ ' ***'; 
end;

Wenn du diese Procedure in deine Unit kopierst und dann Shift+Strg+C drückst (=Codevervollständigung)
und dann noch folgendes änderst:

Delphi-Quellcode:

//  NewItem.OnClick:=DateiClick;  // Alt
  NewItem.OnClick:=DynamikMenuItemClick;

sollte es tun.

[Blackheart]

Vielen Dank shmia das klappt Super.
Hätt Ich eigentlich drauf kommen müssen.
Hier wird man geholfen. :thumb: