TStringGrid, Doppelklick auf fixed Row ignorieren

[hoika]

Halo#,

irgendwie stehe ich auf dem Schlauch.

Der folgende Code soll beim Doppelklick auf eine Zelle das DoEdit aufrufen,
ausser beim Doppelklick auf die FixRow.

Delphi-Quellcode:

procedure TForm1.GridDataDblClick(Sender: TObject);
var
  iCol: Integer;
  iRow: Integer;
  Point: TPoint;
begin
  Point.X:= Mouse.CursorPos.X;
  Point.Y:= Mouse.CursorPos.X;
  Point:= GridData.ScreenToClient(Point);

  GridData.MouseToCell(Point.X, Point.Y, iCol, iRow);
  if iRow<1 then Exit;

  DoEdit;  // das eigentliche Editieren
end;

Klappt aber nicht ;(
iCol und iRow ergeben immer -1 ???

Was mache ich verkehrt ?


Danke


Heiko