Scrollbar de un stringgrid

[razek]

Para que el scrollbar del stringgrid pueda bajar y mostrar los datos que se van ingresando es necesario utilizar la siguiente propiedad:

Stringgrid1.Row:= (z); //Donde "z" es un entero.

Esta propiedad mueve el foco del stringgrid a una celda de la columna en la que se encuentre el foco es decir que si al principio tenemos el foco en la celda (0,0) y ponemos Stringgrid1.Row:= (1); el foco se moverá a la celda (0,1).

Bueno, entonces solo necesitas agregar una variable que se incremente cada que actualices los datos imagino que es un boton, (si no la pones en el evento correspondiente) y podria explicarse con el siguiente ejemplo que es muy simple, quedaria de la siguiente manera:

Agregar a la forma un Tbutton (button1), y un Tstringgrid (stringgrid1)

• Crea dos variables dentro de las declaraciones publicas escribre:

public
{ Public declarations }
z,y:integer;

• En el Procedimiento click del boton escribe el siguiente código:

procedure TForm1.Button1Click(Sender: TObject);
begin
z:=z+1; //Esta es la variable que aumenta cada que se da click en el boton
y:=z; //Asignamos otra variable con el mismo valor de z para
//que controle el foco.
with StringGrid1 do begin
Cells[0,z]:=inttostr(z); //Las celdas se llenan con el valor de "z".
RowCount:=z+1; //El numero de filas aumenta cada que se ingresadatos
row:=y; //Se cambia el foco al valor de "y"
if z>2 then begin row:=y-1; end; //Esta condicion permite prevenir la excepcion que se genera al pasar el foco a una fila que aun no existe, ademas genera una fila mas y asi se puedan mostrar todos los datos.
end;
end;

Ojala esto sirva eso lo acabo de aprender, estoy empezando a usar delphi y a echarle ganas!!!

Atte.

razek the one