delphi TStringGrid 和鼠标右键

Question

我正在使用 Delphi 10.1 Berlin 制作多设备应用程序。我有一个TStringGrid 来列出查询中的一些数据。

我还有一个弹出菜单（编辑、删除、...），但为了编辑/删除一个项目，我必须使用鼠标左键单击一个单元格。

是否可以在显示弹出菜单之前仅使用右键“选择一行”？

我试过了：

procedure TForm1.StringGrid1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Button = mbRight then
    StringGrid1.Perform(WM_LBUTTONDOWN, 0, MakeLParam(Word(X), Word(Y)));
end;

但它在mbRight 和Perform() 上显示错误。

Answer 1

您可以使用以下代码：

procedure TForm39.StringGrid1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: single);
var
  pf: TPointF;
begin
  if Button = TMouseButton.mbRight then
  begin
    with Sender as TStringGrid do
      SelectRow(RowByPoint(X, Y));
  // Do not use the grids PopupMenu property, it seems it
  // prevents this event handler comletely.
  // Instead, activate the menu manually here.
    pf := ClientToScreen(TPointF.Create(X, Y));
    PopupMenu1.Popup(pf.X, pf.Y);
  end;
end;

FireMonkey 是在启用Scoped Enumerations 的情况下编译的，因此mbRight 按钮的问题可以通过在值前面加上其枚举类型 (TMouseButton.mbRight) 来解决。