Cambiar el ancho de las columnas

[roman]

Una forma rápida de hacerlo:

Declara una variable Columns de tipo TDBGridColumns que creas al incio:

Columns := TDBGridColumns.Create(nil, TColumn);

y destruyes al final

Columns.Free;

Cuando abras la tabla le asignas las columnas:

Código Delphi [-]
DBGrid.Columns := Columns;
Table.Open;

Al cerrar la tabla guardas la columnas:

Código Delphi [-]
Columns.Assign(DBGrid.Columns);
Table.Close;
DBGrid.Columns.Clear;

// Saludos

[DarkByte]

Bueno, comentar que lo conseguí minutos después de escribir mi último post.. no he podido responder antes por culpa del WinXP.. que no le da la gana de funcionar bien (escribo ahora mismo desde RedHat).

Nada más simple.. y tonto.. pero que me ha traido de cabeza.

Código Delphi [-]
  DBGrid.Columns.Items[0].With := 222

así predeterminaba el ancho de las columnas en cada consulta, y fijándome en cada valor de regreso de la consulta SQL pues he puesto los index por orden.

MUchísimas gracias a todos!!