Ajustar ancho de columna en DBGRID
 

Necesito ajustar el ancho de columna de un dbgrid al tamaño maximo de caracteres que trae esa columna
Por ejemplo la columna nombre trae los datos "Maria Esther" y Maria y es necesario que el ancho de columna se ajuste paa q muestre todo el nombre Maria Esther.

Les consulto porque he probado los ejemplos de todos los hilos relacionados a este tema y ninguno me ha funcionado.

Gracias
Viky.

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

Muy buena la solución de Chris.

Dejo este enlace del que se pueden sacar ideas también de cómo hacerlo: http://delphi.about.com/od/usedbvcl/l/aa050404a.htm

Un saludo.