[[coso]]

Gracias chackall...solucionado, mas sencillo todavia. Desconocia SetScrollPos y GetScrollPos

Código Delphi [-]
procedure T_main.dbCLIColExit(Sender: TObject);
begin
        tag := GetScrollPos((sender as TDBGrid).Handle,SB_HORZ);
end;
procedure T_main.dbCLIColEnter(Sender: TObject);
begin
        SetScrollPos((sender as TDBGrid).Handle,SB_HORZ,tag,TRUE);
end;