Zur Laufzeit erzeugten Popup.Items Prozeduren zuweisen

[Sharky]

Zitat von FlatG:

Es soll für jeden Menüeintrag auf den man klickt die Caption des Menüeintrags in als Edit1.Text festgelegt werden, ich denke mal das kann man wohl in eine Funktion packen, ich probier mal..

Hmm aber jetzt wo ichs mit grad so anschaue, glaube ich gibts keine einheitliche funktion onClick fürs PopupMenu.. da gibts nur onChange und OnPopup, was aber nicht die gesuchten Ereignisse sind

Du musst es ja auch im OnClick des Menue-Items machen!

Delphi-Quellcode:

procedure TForm1.MyMenuClick (Sender: TObject);
begin
 Edit1.Text := (Sender As TMenuItem).Caption;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
 ndx : Integer;
 MyMenu : TMenuItem;
begin
 for ndx := 1 to 10 do
  begin
   MyMenu := TMenuItem.Create (self);
   MyMenu.Caption := 'Menü - ' + IntToStr (ndx);
   MyMenu.OnClick := MyMenuClick;
   PopupMenu1.Items.Add (MyMenu);
  end;
end;