Hola gracias a sus respuestas logre hacer el siguiente procedimiento valido para los tipos dbgrid
Código Delphi
[-]
Procedure adaptar_Grid(Grid:TDbGrid);
var
ancho,i : integer;
begin
ancho := Grid.Width;
for i := 0 to Grid.Columns.Count -1 do
begin
Grid.Columns[i].Width := (ancho * Grid.Columns[i].tag) div 100 ;
end;
end;
Sin embargo y dada la naturaleza de mis forms esta ocurriendo algo no muy deseable:
algunos de mis forms tienen dentro de si control pageControl dentro de los cuales en distintos tabs hay dbgrids, con el uso del procedure anterior en el evento onrezise del form los configuro a todos:
Código Delphi
[-]
adaptar_grid(dbgrid1);
adaptar_grid(dbgrid2);
.
.
.
adaptar_grid(dbgrid..N);
Mas sin embargo el unico que realmente se adapta es aquel que se encuentre visible al momento de re dimensionar el form
esa es mi nueva duda
Gracias por todo