Gracias a los dos por vuestros comentarios.
Delphi 2006 VCL.Net, Proyecto nuevo VCL, un nuevo Form VCL. Incluyo un DBGrid y un Botón.
Código :
Código Delphi
[-]procedure TForm1.Button1Click(Sender: TObject);
var
Proc : TDrawColumnCellEvent;
begin
Proc := DBGrid1.OnDrawColumnCell;
DBGrid1.OnDrawColumnCell := Proc;
DBGrid1.OnDrawColumnCell := nil;
DBGrid1.OnDrawColumnCell := DBGrid1DrawColumnCell;
end;
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
DBGrid1.Font.Size := 8;
end;
Será de nuevo algo especial del Delphi VCL.Net como me he encontrado otras varias ya.
Gracias por la idea de la variable intermedia.