DBGrid: Como redimensionar columnas si se redimensiona el dbGrid?

[quali]

Acá está el código modificado.No funciona bien, supongo que es por el redondeo. El resize se ejecuta muchas veces mientras se cambia el tamaño de la ventana. Parece ser que en cada ejecución el porcentaje que cambia es mínimo. Y el redondeo termina afectando mucho.

Veré como hago para compensar eso.

Código Delphi [-]

private
    { Private declarations }
    anchoGrid: integer;

procedure TForm2.FormResize(Sender: TObject);
var
nuevoAnchoGrid:integer;
nCols:integer;
nPorcentaje : Double;
i:Integer;
begin

nuevoAnchoGrid:=DbGrid1.Width;

nCols:=DbGrid1.FieldCount;

nPorcentaje:= nuevoAnchoGrid / anchoGrid;
anchoGrid:= nuevoAnchoGrid;

  For i:=0 to ncols -1 do
  begin
  DbGrid1.Columns[i].Width:=round(DbGrid1.Columns[i].Width * nPorcentaje);
  end;
end;

Por lo menos la idea está.

Si logro que funcione bien, posteo lo que modifiqué.

Gracias nuevamente

Alejandro

[TrUnkS]

Para aplicaciones MDI, si se desea aumentar el tamaño de la columna 3 del DBGrid:

Código Delphi [-]
procedure TFLCLIENTE.Panel1Resize(Sender: TObject);
begin
 DBGrid1.Columns[3].Width := 295 + (Panel1.Width - 902);
end;

Donde:

- 295 es el tamaño de la columna en tiempo de diseño. (Propiedad width)
- 902 es el tamaño del panel en tiempo de diseño. (Propiedad width)