Einzelnen Beitrag anzeigen

Benutzerbild von SirThornberry
SirThornberry
(Moderator)

Registriert seit: 23. Sep 2003
Ort: Bockwen
12.235 Beiträge
 
Delphi 2006 Professional
 
#3

Re: Popoupmenu zur Laufzeit erstellen

  Alt 4. Apr 2005, 20:59
@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;
Jens
Mit Source ist es wie mit Kunst - Hauptsache der Künstler versteht's
  Mit Zitat antworten Zitat