item im popupmenu hinzufügen und dem eine funktion zuweisen

[Sharky]

Hai onlinehome,

guckst Du:

Delphi-Quellcode:

procedure TForm1.myOnClick (Sender : TObject);
begin
  //IrgendeinCode
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  myItem : TMenuItem;
begin
  myItem := TMenuItem.Create(self);
  myItem.Caption := Edit1.Text;  // Der Text aus Edit1 wir die Caption des Eintrages
  myItem.OnClick := myOnClick;   // Alle Einträge bekommen die selbe OnClick-Procedure
  PopupMenu1.Items.Add(myItem);
end;