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

按照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

从menu按键开始，涉及以下3个方法：

1、onCreateOptionsMenu(Menu menu)

2、onPrepareOptionsMenu(Menu menu)

3、onOptionsItemSelected(MenuItem item)

方法名

触发时间

onCreateOptionsMenu

进入Launcher后第一次点MENU按钮时触发

onPrepareOptionsMenu

有两种情况：1、进入Launcher后第一次点MENU按钮触发onCreateOptionsMenu后调用；2、经过第一步，以后每次点MENU按钮时都会触发

onOptionsItemSelected

选择MENU里面的任意内容后触发

---