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:

zusammenfalten · markieren

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;

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

Ich hab ein MainMenu
Das sieht in etwa so aus

markieren

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

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

markieren

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:

markieren

Delphi-Quellcode:

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

sollte es tun.

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