Delphi 右键菜单的问题PopupMenu

理论上来说 直接设置PopupMenu

的trackbutton就可以

但是好像是不想的

你再 你需要弹出的菜单的控件做MouseDown事件

例如下面我是做德form的MouseDown事件：

procedure TForm1.FormMouseDown(Sender: TObject Button: TMouseButton

  Shift: TShiftState X, Y: Integer)

var

  P:TPoint

begin

  GetCursorPos(P)

  if Button=mbleft then

    pm1.Popup(P.X,P.Y)

end

1、在Form窗体中添加PopupMenu菜单组件，设计好组件。把Form窗体的PopupMenu属性改成你添加的PopupMenu菜单的名字。

2、在窗体中添加PrintDialog对话框组件。

代码如下：

procedure TForm1.MenuPrintClick(Sender: TObject)

begin

if PrintDialog1.Execute then

begin

ShowMessage(IntToStr(PrintDialog1.MinPage))

end

end

procedure TForm1.MenuExitClick(Sender: TObject)

begin

self.Close

end

---