Falsche Koordinaten bei MouseToCell

[Bummi]

Workaround:

Delphi-Quellcode:

procedure TForm5.StringGrid1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin

  Caption := IntToStr(FCol)+' - ' + IntToStr(FRow)
end;

procedure TForm5.StringGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
      StringGrid1.MouseToCell(x,y,FCol,FRow);
end;