Ajustar ancho de columna en DBGRID

[Chris] · #2 14-07-2010

Utilila el evento OnDrawColumnCell. Dentro de dicho evento agrega un código similar a este:

Código Delphi [-]procedute mi_formulario.MiDBGridOnDrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
const
    HorzMargin = 6; // margen horizontal entre el ancho de la columna y el texto más largo.
begin
    if (TDBGrid(Sender).Columns[DataCol].Width > TDBGrid(Sender).Canvas.TextWidth(Column.Field.AsString) + HorzMargin) then
        TDBGrid(Sender).Columns[DataCol].Width := (TDBGrid(Sender).Canvas.TextWidth(Column.Field.AsString) + HorzMargin);
end;

Saludos,
Chris

Temas Similares
Tema	Autor	Foro	Respuestas	Último mensaje
controlar ancho de columna de un dbgrid	aanil	SQL	3	26-02-2010 10:21:26
ancho de columna en BDGrid	sidneyb	OOP	1	06-02-2010 16:34:03
Colocar Ancho De columna de un DBGrid dependiendo del ancho del maximo campo guardado	gulder	Varios	3	08-11-2008 12:27:34
Ajustar ancho del desplegable de un ComboBox	hector.roma	OOP	5	19-10-2006 00:33:23
Ajustar un Form al ancho de un texto	salvica	Varios	10	01-05-2004 04:11:02