Eliminar la barra de desplazamiento horizontal

Artículo por Club Developers · 31 diciembre 2005

2699 vistas

Si queremos quitar la barra de desplazamiento horizontal, y debido a que la clase TDBGrid no nos proporciona ninguna propiedad para ello, tendremos que indagar en sus ancestros para ver si alguno de ellos nos lo puede permitir.

Si llegamos a TCustomGrid, vemos que esta clase tiene la propiedad ScrollBars en la sección protegida (protected).

Llegados a este punto, sólo nos queda hacer una clase "intermedia" que nos permita acceder a dicha propiedad



delphi
  1. interface
  2.  
  3. ....
  4.  
  5. type
  6.   THackGrid = class(TCustomGrid);
  7.  
  8. ....
  9.  
  10. implementation
  11.  
  12. procedure TForm1.Button1Click(Sender: TObject);
  13. begin 
  14.   THackGrid( DBGrid1 ).Scrollbars := ssVertical;
  15. end;