Como mover El scroolbar de un stringgrid
 

Hola a todos:


Mi problema es el siguiente, necesito mientras un stinggrid se va llenando este vaya bajando el scrollbar a la ultima posicion de tal manera que siempre este viendo el ultimo registro de la tabla.

Gracias por su atencion
Salu2:confused:

Hola,

el StringGrid y todos sus decendientes tienen las propiedades Row y Col, que te indica en que columna y fila (es decir, en que celda), está situado el foco en ese momento.
Lo que debes hacer es cada asignar esa propiedad al último row actual, es decir, al rowcount - 1, cada vez que insertas un registro nuevo en el StringGrid:

Código Delphi [-]
  for aRow := 1 to 25 do begin //es un ejemplo
    StringGrid1.Cells[0, aRow] := 'loquesea';
    StringGrid1.Cells[1, aRow] := 'loquesea';
    StringGrid1.Cells[2, aRow] := 'loquesea';
    StringGrid1.Cells[3, aRow] := 'loquesea';
    StringGrid1.Cells[4, aRow] := 'loquesea';
    ...
    StringGrid1.Row := StringGrid1.RowCount - 1; //Al final del bucle, mueves el foco al último row, así se tendrá el efecto que querías.
  end;

Espero te sirva.

Saludos

Hola,

No tengo mucha idea de ese control, pero, haciendo alguna prueba, me parece que bastaría conque según fueras añadiendo las distintas filas, actualizaras la propiedad "Row" del "StringGrid". Algo así:

Código Delphi [-]
var
  i: integer;
begin
  StringGrid1.RowCount := 100;
  for i := 0 to StringGrid1.RowCount-1 do
  begin
    StringGrid1.Rows[i].Add(IntToStr(i));
    StringGrid1.Row := i;
  end;
end;

Edito: Bicho se me adelantó y puede que su respuesta merezca más la pena que la mía aunque diría que son similares. :)

Y sin embargo el anterior código no se comporta igual que este otro:

Código Delphi [-]
var
  i: integer;
begin
  StringGrid1.RowCount := 100;
  for i := 0 to StringGrid1.RowCount-1 do
  begin
    StringGrid1.Rows[i].Add(IntToStr(i));
    StringGrid1.Row := StringGrid1.RowCount-1;
  end;
end;

Cosas del StringGrid, digo yo, vamos. :D

Pues no lo había probado, lo había hecho de cabeza, y el efecto esperado se consigue con la solución de dec

Código Delphi [-]
var
  i: integer;
begin
  StringGrid1.RowCount := 100;
  for i := 0 to StringGrid1.RowCount-1 do
  begin
    StringGrid1.Rows[i].Add(IntToStr(i));
    StringGrid1.Row := i;
  end;
end;

Es curioso, y no lo entiendo. Hubiera jurado que era culpa del optimizador de Delphi, pero lo he desactivado y sigue haciendo el mismo efecto.
Será como dice David, cosas del StringGrid.

Saludos

Gracias Gente!!!

Justo lo que necesitabamos!:)