Ver Mensaje Individual
  #5  
Antiguo 01-12-2011
Avatar de Caro
*Caro* Caro is offline
Moderadora
 
Registrado: jul 2004
Ubicación: Cochabamba, Bolivia
Posts: 2.544
Reputación: 22
Caro Va por buen camino
Hola rruffino, una función que salte a las siguientes X filas creo que no hay, tendrías que hacerte una mas o menos así:

Código Delphi [-]
procedure SaltarRows(StringGrid : TStringGrid; Cant : Integer);
var  RowActual, RowSig : Integer;
begin
 RowActual := StringGrid.Row;
 RowSig := RowActual+Cant;

 if RowSig<1 then
  RowSig:=1
 else
  if RowSig>StringGrid.RowCount-1 then
   RowSig := StringGrid.RowCount-1;

 StringGrid.Row := RowSig;
end;
//llamada
 SaltarRows(StringGrid1, 10);
 //o
 SaltarRows(StringGrid1, -10);

Saluditos
__________________
Disfruten cada minuto de su vida a lado de sus seres queridos como si fuese el ultimo, uno nunca sabe lo que puede pasar.

Última edición por Caro fecha: 01-12-2011 a las 17:00:59.
Responder Con Cita