Eliminar scroll horizontal (que no scrollbar) de dbgrid
 

Hola a todos,
tengo una dgrid que se extiende bastante horizontalmente. Me gustaria que al refrescar los datos (recolocando el cursor en el registro anterior) la dbgrid no hiciese el scroll horizontal al respecto. Supongo que se podria capturar el mensaje de scroll (¿alguien sabe su nombre? ¿o una lista de los mensajes que procesa dbgrid?) y ejecutar tansolo el vertical...en fin, si alguien tiene alguna idea, gracias por adelantado. Saludos.

Aunque no soy afecto del uso de componentes y no "se" que ·"%$ te refieres me concentro en la pregunta: WM_HSCROLL, si es que por ahí va el asunto me atreveria a intentar con:

Código Delphi [-]
 ShowScrollBar(dbGrid1.Handle, SB_HORZ, False);

Saludos

Hola chackall,
no, la barra de scroll si que la requiero. Me intento explicar mejor: tengo 16 campos, de longitud considerable. Si el usuario esta mirando el campo 11, por ejemplo, no se ven ni el 1 ni el 2 etc, estando el scrollbar horizontal por la mitad de la barra...clickando se edita...al hacer un refresh de los datos y consecuentemente del dbgrid, el dbgrid vuelve a mostrar los campos 1,2,3 etc...y el scrollbar horizontal al inicio de la barra. Vamos, que lo que quiero es eliminar el scroll horizontal, dejando la scrollbar visible...de todas maneras, pruebo de capturar WM_HSCROLL y anular cualquier accion justo despues del refresh, a ver si resuelvo algo ;) saludos y gracias.

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;

No, no era eso :confused::confused: ...

:D :D, perdón amigo, pero eso me acaba de dar risa :D :D, perdón :o :o

Saludos.

:eek::D:D vaya vaya cachondeandose del projimo eh??? pues q se sepa q lo lograre...:cool::cool::D

...espero...

...y si no mira, que usen el scrollbar que para eso esta :rolleyes::rolleyes:

A ver si con esto:

Código Delphi [-]
type
  TDBGrid = class(DBGrids.TDBGrid);

...

var
  LeftCol: Integer;

begin
  LeftCol := TDBGrid(DBGrid1).LeftCol;

  ...

  TDBGrid(DBGrid1).LeftCol := LeftCol;
end;

// Saludos

Si, eso era...lastima del flick (en onexit se coge el valor, en onenter se vuelve a poner). Pruebo de repintar y les cuento ;) Merci Roman

Bueno...parece q la solucion al final si es sencilla, aunque no tenga mucha logica...es poniendo simplemente dbgrid.Options - [dgRowSelect] antes de repintar...no hace falta ni canviar .leftcol. Parece ser que si dgRowSelect esta activado al llegar al .paint, se crea el bitmap de toda la dbgrid y luego este se mueve a la columna especificada, con el correspondiente parpadeo :confused: en fin, gracias

Hombre, pues sí, esto ya lo había notado. Pero como lo preguntabas, suponía yo que no tenías esa opción habilitada. El punto es sí deseas activar esa opción tan sólo para resolver el otro problema.

// Saludos

no, tengo siempre en todas las dbgrids rowselect activado, pues acostumbro a operar en otras forms...por eso no me percate :confused:. En fin, eso es. Activare y desactivare segun convenga, o a ver si puedo encontrar alguna manera que lo haga automaticamente justo antes del .paint. Gracias de nuevo y un saludo ;)

Off-topic
 

Disculpen que interrumpa el hilo momentaneamente. Se que no viene con el tema pero me siento un tanto intrigado por este "truco" que ya he visto en otras ocasiones:

He leído lo que comenta Ian al respecto, también he visto que otros lo han comentado en algunos hilos, pero aún así no logro entender cuando y porque es conveniente hacer dicho "truco". Les agradecería si me lo pudieran explicar para ver si de alguna vez me saco esa intriga.

Disculpame coso, si te molesta que use el hilo dime y lo trato el tema fuera. Lamento no tener alguna idea con respecto a tu duda:o.

Saludos,

bueno...es como un override de la clase entera no?

A ver. La propiedad LeftCol de TDBGrid está protegida, lo cual quiere decir que no podemos accederla directamente:

Código Delphi [-]
DBGrid1.LeftCol ... // error de compilación

Pero puede accederse por clases descendientes, internamente o en la unidad donde se declare la clase descendiente.

Al poner

Código Delphi [-]
type
  THackGrid = class(TDBGrid);

THackGrid es una clase descendiente de TDBGrid, aunque no agregue nada. Por ello, se puede hacer un moldeo como

Código Delphi [-]
THackGrid(DBGrid1).LeftCol ...

al estar en la misma unidad que su declaración.

Y, dando otra vuelta de tuerca más, podemos poner

Código Delphi [-]
type
  TDBGrid = class(DBGrids.TDBGrid);

Aquí, TDBGrid es otra clase, que desciende de la clase homónima de la unidad DBGrids.

// Saludos

A ver si comprendo, entonces el "truco" consiste en acceder a métodos y/o propiedades protegidas de una clase sin estar heredando de ésta y hacerlo público?:confused:

Saludos,

Pues algo así. Más que nada es una solución temporal, rapidita, para no tener que declarar una clase heredada, instanciar un objeto de esa clase y trabajar con él en lugar del original.

Con este truco pueden ahora dar al traste quienes declaren sus métodos y propiedades como strict protected.

// Saludos

Muchas gracias roman.
Ahora si me queda claro. Como te digo que leí y leí muchas veces sobre esta técnica pero nunca me sentí a gusto, no me entraba en la cabeza. Directamente pasé de largo y segui con otra cosa.

Ahora si podré dormir más tranquilo , una cosa menos de que preocuparme.

Como técnica le veo buen uso; ahora como mi mente tiende al purista me dice que es mejor heredar y tener una nueva clase. Pero en fin, son técnicas y necesidades de cada uno.

Lamento haberlos interrumpido.

Saludos,