Cambiar la altura (Height) de las filas

Artículo por Club Developers · 31 December 2005

2492 vistas

Quizás nos interese cambiar la altura del las filas (Height) de un TDBGrid. No obstante no tenemos ninguna propiedad para ello. Pero si miramos los padres de esta clase y llegamos hasta TCustomGrid vemos que tenemos una propiedad protejida (protected) llamada DefaultRowHeight que nos podrÃa ayudar en nuestras necesidades.

Visto esto, sólo nos hace falta declarar una clase "intermedia" para poder 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 ).DefaultRowHeight := 50;
  15. end;