Cambiar la altura (Height) de las filas

2393 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;