关于poputmenu

Question

只建立一个poputmenu
有四个panel   分别在这四个panel 中poputmenu 怎么触发不同的事件  谢谢

Answer 1

说的是PopupMenu吧它有个PopupComponent属性,你可以用一下

Answer 2

在PopupMenu 的事件管理器里 双击 OnPopup 输入代码：Showmessage(TPopupMenu(Sender).PopupComponent.Name);运行看一下效果

Answer 3

在每个panel中Panel1MouseMove事件procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
     panel1.PopupMenu:=popupmenu1;
end;