高分易答问题（50分），见者有分

Question

1:在左击事件中加入代码：PopupMenu1.Popup();

Answer 1

在DropDownMenu中选择那个PopUpMenu就行了

Answer 2

对的，自己处理click事件，然后popup这一个菜单

Answer 3

procedure TForm1.FormClick(Sender: TObject);
begin
  PopupMenu1.Popup(Mouse.CursorPos.X, Mouse.CursorPos.Y);
end;

Answer 4

改变一下方法：
procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
pt:TPoint;
begin
  if Button = mbLeft then
  begin
    GetCursorPos(pt);
    self.PopupMenu1.Popup(pt.x,pt.y);
  end;
end;

Answer 5

zswang(伴水)(* pascal→c *),这位老兄说得好！！！！！！！！