delphi TStringGrid和鼠标右键

Question

我正在使用Delphi 10.1柏林来制作多设备应用程序。我有一个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）前缀值来解决。