Delphi：弹出菜单

Question

有一个列表视图+一个弹出菜单。我需要在存在项目时显示弹出菜单。菜单项数为 0 时不得出现。

这个大概的代码是否合适（可以作为基础）？

procedure TForm1.StringGrid1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var P: TPoint;
begin
  P:=GetClientOrigin;
  if Button = mbRight then
     PopupMenu1.Popup(X+P.X+StringGrid1.Left, Y+P.Y+StringGrid1.Top);
end;

还有其他方法吗？

谢谢！！！

Answer 1

首先，不要对鼠标事件执行任何操作，因为可以从键盘调用弹出菜单。

在我看来，最好的方法是处理 OnPopup 事件。如果您希望菜单不出现，请调用Abort。

procedure TForm1.PopupMenu1Popup(Sender: TObject);
begin
  if SomeCondition then
    Abort;
end;