Eliminar scroll horizontal (que no scrollbar) de dbgrid

[[coso]]

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

[[coso]]

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 en fin, gracias

[roman]

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

[[coso]]

no, tengo siempre en todas las dbgrids rowselect activado, pues acostumbro a operar en otras forms...por eso no me percate . 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

[[Delphius]]

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:

Empezado por roman

A ver si con esto:

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

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.

Saludos,

[[coso]]

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

[roman]

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

[[Delphius]]

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?

Saludos,