TDBGRID AVEC AJUSTEMENT AUTOMATIQUE DE LA LARGEUR DES COLONNES

TFitDBGrid = class(TDBGrid)
  protected
    procedure LinkActive(Value: Boolean); override;
  end;

...

procedure TFitDBGrid.LinkActive(Value: Boolean);
var
  W : array[0..256] of integer; // Limite à 256 colonnes, on peut faire plus ou un tableau dynamique
  l,c : Integer;
begin
  inherited;
  if Value then // Ajustement des colonnes
    with Datasource.DataSet do
      try
        DisableControls;
        for c := 0 to Columns.Count-1 do
          W[c] := Canvas.TextWidth(Columns[c].Title.Caption +'W'); // Largeur des titres avec un espace supplementaire
        First;
        while not EOF do begin
          for c := 0 to Columns.Count-1 do
            if assigned(Columns[c].Field) then begin
              l := Canvas.TextWidth(Columns[c].Field.asString+'W'); // Largeur des données
              if W[c] < l then W[c] := l;
            end;
          Next;
        end;
        for c := 0 to Columns.Count-1 do
          Columns[c].Width := W[c];
      finally
        EnableControls;
      end;
end;