Scroll errático en StringGrid

[ecfisa]

Hola.

Creo que te resultará mas simple manejar el scroll controlando la propiedad TopRow del TStringGrid.

Ejemplo:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
var
  c, r: Integer;
begin
  for c := 0 to SG.ColCount-1 do
    for r := 0 to SG.RowCount-1 do
      SG.Cells[ c, r ] := Chr(65+c+r);
end;

procedure TForm1.sbBtnDownClick(Sender: TObject);
begin
  if SG.TopRow > SG.FixedRows then
    SG.TopRow := SG.TopRow - 1;
end;

procedure TForm1.sbBtnUpClick(Sender: TObject);
begin
  if SG.TopRow < SG.RowCount-1 then
    SG.TopRow := SG.TopRow + 1;
end;

Efecto:


Saludos