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

次のコードを使用することができます：mbRightボタンでの問題は、その列挙型（TMouseButton.mbRight）で値を付けることによって解決されるように

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でコンパイルされています。