Simuler le clic de souris sur une cellule dans TDBGrid

Question

Comment simuler un clic de souris sur une cellule dans TDBGrid?

Answer 1

Mise à jour:

Ce code devrait faire ce que vous semblez vouloir:

type 
    TMyDBGrid = class(TDBGrid); 

function TForm1.GetCellRect(ACol, ARow : Integer) : TRect; 
begin 
    Result := TmyDBGrid(DBGrid1).CellRect(ACol, ARow); 
end; 

procedure TForm1.DBGrid1MouseUp(Sender: TObject; Button: TMouseButton; Shift: 
    TShiftState; X, Y: Integer); 
var 
    Coords : TGridCoord;  
begin 
    Coords := DBGrid1.MouseCoord(X, Y); 
    Caption := Format('Col: %d, Row: %d', [Coords.X, Coords.Y]); 
end; 

procedure TForm1.SimulateClick(ACol, ARow : Integer); 
type 
    TCoords = packed record 
    XPos : SmallInt; 
    YPos : SmallInt; 
    end; 
var 
    ARect : TRect; 
    Coords : TCoords; 
begin 
    ARect := GetCellRect(ACol, ARow); 
    Coords.XPos := ARect.Left; 
    Coords.YPos := ARect.Top; 
    DBGrid1.Perform(WM_LButtonUp, 0, Integer(Coords)); 
end; 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
    SimulateClick(StrToInt(edX.Text), StrToInt(edY.Text)); 
end; 

La fonction MouseCoord de TDBGrid convertit une paire de coordonnées (X, Y) dans un numéro de colonne (TGridCoord L'événement OnMouseUp affiche les résultats de l'appel de DBGrid1.MouseCoord sur le X & ents. Le SimulateClickSimulateClick simule un clic sur une cellule de la grille. Il utilise GetCellRect pour obtenir les coordonnées (dans le DBGrid) du topleft d'une cellule spécifiée, puis appelle Perform (WM_LButtonUp, ...) sur le DBGrid, en passant les coordonnées dans l'argument LParam.

Enfin, Button1Click appelle SimulateClick en utilisant les valeurs Col et Row d'une paire de TEdits. Cela provoque l'exécution de l'événement OnMouseUp et affiche le nombre Col et Row, de sorte que vous pouvez vous assurer qu'il a le même effet que le clic de la souris sur la cellule correspondante.