Listbox items in PopUpMenu rein

[Blackheart]

Mal ein kleines Beispiel wie es ungefähr aussehen könnte

Delphi-Quellcode:

private
    { Private-Deklarationen }
    procedure OnMenuItemClick(Sender: TObject);
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


procedure TForm1.Button1Click(Sender: TObject);
var 
  NewItem: TMenuItem;
  i:Integer;
begin
  for i:=0 to 10 do
  begin
    NewItem:= TMenuItem.Create(Form1);
    NewItem.Caption := 'Item' + IntToStr(i);
    NewItem.Tag := i;
    NewItem.OnClick := OnMenuItemClick;
    PopUpMenu.Items.Add(NewItem);
  end;
end;

procedure TForm1.OnMenuItemClick(Sender: TObject);
begin
  ShowMessage(TMenuItem(Sender).Caption);
end;