Question

如何动态添加popupmenu里面的item-CSDN论坛

Answer 1

按照Memo1中的列表生成PopupMenu，这里设置了Item的hint，把内容通过hint传递。

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
Item:TMenuItem;
begin
for i:=0 to Memo1.Lines.Count-1 do
begin
Item:=TMenuItem.Create(Owner);
Item.Caption:=Memo1.Lines.Strings[i];
Item.Hint:=Memo1.Lines.Strings[i];
Item.OnClick:=MenuItemClick;
PopupMenu1.Items.Add(Item);
end;
end;

procedure TForm1.MenuItemClick(Sender:TObject);
begin
ShowMessage(TMenuItem(Sender).Hint);
end;