Popoupmenu zur Laufzeit erstellen

[Nicolai1234]

Hallo,
ich erstelle so ein Popupmenu zur Laufzeit (bzw. die Inhalte des Menüs)

Delphi-Quellcode:

tmi := tmenuitem.Create(self);
[..]
tmi.Caption := listbox1.Items[i];
popupmenu1.Items.Add(tmi);

Das Funktioniert auch alles recht gut, allerdings möchte ich es jetzt so machen, dass beim KLICK auf die einzelnen Menüpunkte immer EINE procedure aufgerufen wird.

Diese Prozedur sieht wie folgt aus:
procedure oeffnen(s:string); Der String der der Prozedur übermittelt wird, soll gleichzeitig das (oder die?) Caption des Menüpunktes sein.

Also: Wie kann ich beim erstellen der Menüpunkte klarmachen, dass er immer diese Prozedur mit dem entsprechenen String aufrufen soll?

Ich hoffe ihr versteht was ich meine.
Vielen Dank im voraus

[Yadon]

Spricht etwas gegen:
popupmenu1.Items.OnClick := oeffnen(listbox1.Items[i]); oder:
tmi.OnClick := oeffnen(listbox1.Items[i]);

[SirThornberry]

@Yadon: dagegen spricht das dies nicht möglich ist.

Möglich wäre nur das man jedem Item die gleiche Procedure zuweist (vom typ TNotifyEvent) und dann anhand des senders die caption ausliest.

Delphi-Quellcode:

[...]
tmi := tmenuitem.Create(self); 
[..] 
tmi.Caption := listbox1.Items[i]; 
tmi.OnClick := ItemClick; //<== hier das OnClick zuweisen
popupmenu1.Items.Add(tmi);
[...]

procedure TForm1.ItemClick(Sender: TObject);
begin
  if Sender is TMenuItem then
    showmessage(TMenuItem(Sender).Caption); //anstelle von Showmessage kannst du natürlich auch was anderes aufrufen - zum beispiel deine funktion die den string erwartet.
end;