Breite von DBGrid ändern

[Deichkind_228]

hallo zusammen,
ich hätte da mal nen kleines Problemchen. Über welche Eigenschaft passe ich die Breite von DBGrid automatisch an die Spalten an, die ich darstellen möchte?

[uwewo]

Delphi-Quellcode:

DBGrid.Columns[Spalte].Width

Im OI oder zur Laufzeit

[marabu]

Hallo,

in bestimmten Situationen mag es Sinn machen die Breite eines DBGrids auf die Breite der Spalten abzustimmen. Der folgende Code berücksichtigt keine ScrollBars:

Delphi-Quellcode:

procedure ResizeGrid(grid: TDBGrid);
var
  iCol, iWidth: Integer;
begin
  with grid do
  begin
    iWidth := 12 * Ord(dgIndicator in Options) 
            + Columns.Count * Ord(dgColLines in Options) 
            + Ord(BorderStyle) * 4;
    for iCol := 0 to Pred(Columns.Count) do
      Inc(iWidth, Columns[iCol].Width);
    Width := iWidth;
  end;
end;

Grüße vom marabu

[Deichkind_228]

danke. der Tip hat mir weiter geholfen