StringGrid Fixed Col DoubleClick

[Klaus01]

Hallo,

das sollte so funktionieren:

Delphi-Quellcode:

procedure TUeMonitor.StringGrid1DblClick(Sender: TObject);
var
  tp: TPoint;
  mousePos: TPoint;
  col, Row: Integer;
begin
   GetCursorPos(tp);
   mousePos := (sender as TStringGrid).ScreenToClient(tp);
   (sender as TStringGrid).MouseToCell(mousePos.X,mousePos.Y,col,row);
   showMessage('Col:'+intToStr(col)+' Row:'+intToStr(row))
end;

Grüße
Klaus