Scroll errático en StringGrid

[mRoman]

Empezado por 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

Ok, muchísimas gracias Daniel, eso era lo q estaba buscando. Vi las propiedades de RowCount q efectivamente lo use para saber cuantas líneas tenia y estaba explorando el TopRow, cuando envié el hilo....nuevamente muchas gracias.

Con esto ya no usaré DELTA?...

p.d. No, ya no usaré DELTA, ya vi que no.!.

Saludos.