TStringGrid -> Cursorposition in Zelle bestimmen

[taaktaak]

SingleClickPosition im Grid ermitteln

- im Ereignis OnMouseDown()

Delphi-Quellcode:

procedure T~.sg~MouseDown(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer);
var Col,Row : Integer; 
begin
  sg~.MouseToCell(x,y,Col,Row);
  ..

- im Ereignis OnClick()

Delphi-Quellcode:

procedure T~.sg~Click(Sender:TObject);
var P         : TPoint;
    PCol,PRow : LongInt;
begin
  GetCursorPos(p);
 
  with sg~ do begin
    P:=ScreenToClient(P);
    MouseToCell(P.x,P.y,PCol,PRow);
    ..

DoubleClickposition im Grid ermitteln

- ist nur im OnDblClick() und nicht im OnMouseDown() möglich!

Delphi-Quellcode:

procedure T~.sg~DblClick(Sender:TObject);
var P         : TPoint;
    PCol,PRow : LongInt;
begin
  GetCursorPos(p);
 
  with sg~ do begin
    P:=ScreenToClient(P);
    MouseToCell(P.x,P.y,PCol,PRow);
    ..

oder analog natürlich im OnMouseMove()