TDBGridのセルをマウスでクリックするとシミュレートする

Question

TDBGridの一部のセルをマウスでクリックすると、どのようにシミュレーションできますか？

Answer 1

更新：

このコードは、あなたが望むように見える何をすべき：

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; 

のTDBGridのMouseCoord機能は、列番号（TGridCoordに座標（X、Y）のペアに変換します.X）とRow番号（（TGridCoord.Y）。

OnMouseUpイベントは、X & Y入力のargumにDBGrid1.MouseCoordを呼び出した結果を表示しますents。

SimulateClickは、グリッドのセルのクリックをシミュレートします。 GetCellRectを使用して、指定されたセルの頂点の座標（DBGrid内）を取得し、DBGridでPerform（WM_LButtonUp、...）を呼び出し、LParam引数に座標を渡します。

最後にButton1ClickはTEditのペアからCol値とRow値を使用してSimulateClickを呼び出します。 OnMouseUpイベントが発生し、ColとRowの番号が表示されるため、対応するセルをマウスでクリックするのと同じ効果を得ることができます。