Mausklick auf eine Zelle simulieren in TDBGrid

Question

Wie kann man einen Mausklick auf eine Zelle in TDBGrid simulieren?

Answer 1

Update:

Dieser Code sollte tun, was Sie scheinen zu wollen:

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; 

Die MouseCoord Funktion von TDBGrid ein Paar von Koordinaten konvertiert (X, Y) in eine Spaltennummer (TGridCoord .X) und eine Zeilennummer ((TGridCoord.Y).

die OnMouseUp Ereignis zeigt die Ergebnisse der DBGrid1.MouseCoord Aufruf auf dem X-Y-Eingang & ARGUM . Die SimulateClick simuliert einen Klick auf eine Zelle des Gitters. Es verwendet GetCellRect, um die Koordinaten (in dem DBGrid) des topleft einer angegebenen Zelle abzurufen, und ruft dann auf dem DBGrid Perform (WM_LButtonUp, ...) auf, das die Koordinaten in dem LParam-Argument übergibt.

Schließlich ruft Button1Click SimulateClick mit Col und Row-Werten von einem Paar TEdits auf. Dadurch wird das OnMouseUp-Ereignis ausgelöst und die Spalten- und Zeilennummer angezeigt. Sie können sich also selbst davon überzeugen, dass es den gleichen Effekt wie ein Mausklick auf die entsprechende Zelle hat.