Desplazar ScrollBar de TDBGrid

[eureka]

Saludos,

Se presenta una DBGrid ligada a un TQuery. Despues de hacer un Close y un Open sobre la query, quiero mantener la posicion de la Scrollbar horizontal en la misma posición que tenia antes de realizar el Close.

He intentado utilizar Grid.ScrollBy, pero sin exito.

El siguiente codigo mueve la scrollbar pero con ella no se desplaza el contenido de la grid.

Código Delphi [-]
iPosSbHorz:= GetScrollPos((Column.Grid As TDBGrid).Handle,SB_HORZ);
Query.Close;
Query.Open;
SetScrollPos((Column.Grid As TDBGrid).Handle,SB_HORZ,iPosSbHorz,True);

Gracias por su tiempo y sugerencias

[Neftali [Germán.Estévez]]

¿Has probado ha hacer un Locate/similar sobre la tabla?
De esa forma te posiciones sobre el registro activo a la vez que mover el Scroll; aunque no estoy del todo seguro de que sea lo que necesitas.

[eureka]

Un locate sobre la query desplaza la scrollbar vertical, pero no mueve a la posicion deseada el scrollbar horizontal

[Neftali [Germán.Estévez]]

Perdón, perdón, perdón,... se me escapó lo de horizontal...
Prueba con ésto (uno por cada columna que quieras desplazar):

Código Delphi [-]
   SendMessage(DBGrid1.Handle, WM_HSCROLL, SB_PAGERIGHT, 0);

[delphi.com.ar]

Probá esto:

Código Delphi [-]
  qryData.DisableControls;
  try
    qryData.Close;
    ...
    qryData.Open;
  finally
    qryData.EnableControls;
  end;

Saludos!

[jmariano]

Tambien podrías probar con la propiedad "SelectedIndex" del DBGrid:

Código Delphi [-]
iPosSbHorz:= DBGrid1.SelectedIndex;
Query.Close;
Query.Open;
DBGrid1.SelectedIndex := iPosSbHorz;

Saludos!

[eureka]

Si señores! Son un valor seguro. La propuesta hecha por Neftali funciona bien.

Código Delphi [-]
 
iPosSbHorz:= GetScrollPos((Column.Grid As TSPDBGrid).Handle,SB_HORZ);
 
...
 
while GetScrollPos(Handle,SB_HORZ) < iPosSbHorz do
SendMessage(Handle, WM_HSCROLL, SB_LINERIGHT, 0);

Gracias a todos

Sabrían como pintar la "muesca","triángulo"... de ordenación en el encabezado de columna de una TDBGrid?

[jmariano]

Empezado por eureka

Sabrían como pintar la "muesca","triángulo"... de ordenación en el encabezado de columna de una TDBGrid?

Nuevas preguntas, nuevos hilos
(Si no lo has hecho, te sugiero leerte la Guía de estilo )

Saludos!

[Delfino]

Todo estas caracteristicas y mas (ex columna chekbox) lo encuentras en el JvDBGrid de la libreria JVCL