Creo que es mucho más simple de lo que se comenta:
Código Delphi [-]
for I:=0 to dbgrid.columns.count-1 do
with dbgrid.columns[i] do
width := dbgrid.canvas.textwidth(Field.DisplayLabel)+10;
el +10 es por si quieres ordenar una columna y que aparezca el triangulito correspondiente.
saludos
__________________
Si usted entendió mi comentario, contácteme y gustosamente,
se lo volveré a explicar hasta que no lo entienda, Gracias.
|