delphi TStringGrid et le bouton droit de la souris

Question

J'utilise Delphi 10.1 Berlin pour faire une application multi-périphérique. J'ai un TStringGrid afin de lister certaines données d'une requête.

J'ai également un menu contextuel (modifier, supprimer, ...), mais pour modifier/supprimer un élément, je dois cliquer sur une cellule en utilisant le bouton gauche de la souris.

Est-il possible de "sélectionner une ligne" en utilisant seulement le bouton droit avant d'afficher le menu contextuel?

J'ai essayé:

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; 

Mais il affiche une erreur sur mbRight et Perform().

Answer 1

Vous pouvez utiliser le code suivant:

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 est compilé avec Scoped Enumerations activé, de sorte que le problème avec le bouton mbRight est résolu en préfixant la valeur avec son type ENUM (TMouseButton.mbRight).