如何点击左键弹出快捷菜单?

Question

Delphi中,如何点击左键弹出快捷菜单?

Answer 1

在OnClick事件里面调用TPopMenu的Popup事件。

Answer 2

下面是在MouseDown中的例子procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  pt: TPoint;
begin
  GetCursorPos(pt);
  if Button = mbLeft then
    PopupMenu1.Popup(pt.X,pt.Y);
end;

Answer 3

firef 你好 ，是这样的：左键单击按钮，然后怎么出现快捷菜单？