Desplazar ScrollBar de TDBGrid

[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!