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 함수는 열 번호로 좌표 (X, Y)의 한 쌍의 변환 (TGridCoord .X) 및 행 번호 ((TGridCoord.Y)

OnMouseUp 이벤트는 X & Y 입력 자료에 DBGrid1.MouseCoord를 호출 한 결과를 표시합니다 ents.

SimulateClick은 그리드 셀의 클릭을 시뮬레이션합니다. GetCellRect를 사용하여 지정된 셀의 최상위 요소의 좌표 (DBGrid에서)를 가져온 다음 DBGrid에서 Perform (WM_LButtonUp, ...)를 호출하고 LParam 인수에 좌표를 전달합니다.

마지막으로 Button1Click은 한 쌍의 TEd에서 Col 및 Row 값을 사용하여 SimulateClick을 호출합니다. 이로 인해 OnMouseUp 이벤트가 발생하고 Col 및 Row 번호가 표시되므로 해당 셀을 마우스로 클릭 할 때와 동일한 효과를 얻을 수 있습니다.