problemas con el DBGrid

[aip]

Tengo el código siguiente:

procedure TfrmNCultivo.dbgConsultaKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
{Es agregado para que la columna de totales se mueva cuando se mueva
la columna de consulta}
TStringGrid(dbgTotales).Col:=TStringGrid(dbgConsulta).Col;
dbgTotales.Setfocus;
dbgConsulta.Setfocus;
end;

procedure TfrmNCultivo.dbgTotalesKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
{Es agregado para que la columna de consulta se mueva cuando se mueva
la columna de totales}
TStringGrid(dbgConsulta).Col:=TStringGrid(dbgTotales).Col;
dbgConsulta.Setfocus;
dbgTotales.Setfocus;
end;


En ambos DBGrids (dbgConsulta y dbgTotales) tienen dentro, una barra de despliegue horizontal (scrollbar)

¿Qué debo hacer para que al momento de mover la barra de despliegue horizontal de un DBGrid, se mueva automáticamente al mismo tiempo la barra de despliegue horizontal del otro DBGrid en la misma posición (es decir, si la muevo al inicio. la otra se mueva al inicio también cuando lo voy arrastrando con el ratón)?


Gracias

[__cadetill]

Podrías mirar de utilizar los eventos del DbGrid OnColEnter y/o OnColExit

[delphi.com.ar]

En otro tema: Estas hablando de un TDBGrid, y veo que estás haciendo un cast a TStringGrid. Lo que no creo nada correcto pues TDBGrid no hereda de TStringGrid... esto ya se ha discutido anteriormente en el foro:
http://www.clubdelphi.com/foros/show...=&threadid=706

Saludos!

[aip]

Gracias Por las respuestas. Me han ayudado a comprender el mal uso que hago al Usar un casting con TStringGrid para un objeto DBGrid.
Esto no es mi problema principal. Tengo dos DBGrid, en un DBGRid1 tengo el detalle y en un DBGrid2 tengo los totales.
Como las columnas no caben en el cuadro del DBGrid, aparece una barra de despliegue entre columnas la cual puedo mover con el ratón manteniendo presionado el botón derecho y arrastrando la barra de manera horizontal. Lo que deseo es que al momento de mover la barra del DBGrid1, se mueva también la barra del DBGrid2 en la misma posición de la barra del DBGrid1, para que los totales coincidan con la columna correspondiente.

Gracias