Ver Mensaje Individual
  #2  
Antiguo 18-12-2008
Avatar de salvica
salvica salvica is offline
Miembro
 
Registrado: mar 2004
Ubicación: Albacete (España) ... En un lugar de la Mancha ...
Posts: 304
Reputación: 21
salvica Va por buen camino
Cerrado

Vale, me repondo yo mismo y lo cierro.
Código Delphi [-]
procedure TForm_Main.GridView_TODOS_OnCellClick(Sender: TObject; ACol, ARow: Integer);
var
  NumPages : integer; //-----> número de páginas a salta
  VisRows  : integer; //-----> número de filas visibles
begin
{ calcular las filas que se ven en el GridView }
  VisRow  := TGridView(Sender).GetVisibleCount;

{ calcular las paginas saltadas }
  NumPage := ARow div VisRow;

{ hacer un scroll para que se posicione la primera fila }
  GridView_1.ScrollToRow( NumPage*VisRow );
  GridView_2.ScrollToRow( NumPage*VisRow );
  GridView_3.ScrollToRow( NumPage*VisRow );

{ hacer un scroll para que se posicione en la fila seleccionada }
  GridView_1.ScrollToRow( ARow );
  GridView_2.ScrollToRow( ARow );
  GridView_3.ScrollToRow( ARow );

{ activar la fila seleccionada }
  GridView_1.SelectedRow := ARow;
  GridView_2.SelectedRow := ARow;
  GridView_3.SelectedRow := ARow;
end;

Saludos

Salvica
Responder Con Cita