TStringGrid

[Delphi.Narium]

Der Fehler kommt aus

Delphi-Quellcode:

procedure TCustomGrid.MoveCurrent(ACol, ARow: Longint; MoveAnchor,
  Show: Boolean);

wenn diese Bedingung erfüllt ist:

Delphi-Quellcode:

  if (ACol < 0) or (ARow < 0) or (ACol >= ColCount) or (ARow >= RowCount) then
    InvalidOp(SIndexOutOfRange);

Sprich: Der Fehler tritt auf, wenn (aus welchem Grund auch immer) eine Zelle im Grid ausgewählt wird, die das Grid nicht enthält.

Beim Drehen des Mausrades wird halt immer weiter in den Zeilen nach oben oder unten gescrollt. Leider wird dabei vergessen auf das Ende des Grids zu achten und damit aus dem Grid rausgescrollt, anstatt dann mit dem Scrollen aufzuhören, wenn die erste bzw. die letzte Zeile im Grid erreicht ist.

Man könnte halt einfach mal aus dem

Delphi-Quellcode:

  if (ACol < 0) or (ARow < 0) or (ACol >= ColCount) or (ARow >= RowCount) then
    InvalidOp(SIndexOutOfRange);

ein

Delphi-Quellcode:

  if (ACol < 0) or (ARow < 0) or (ACol >= ColCount) or (ARow >= RowCount) then
    exit;

machen