Meherer Spalten glechzeitig anzeigen

[DeddyH]

Evtl. auch so (ungetestet):

Delphi-Quellcode:

procedure ResizeColumnsEqually(Grid: TDBGrid);
var
  i: integer;
begin
  if Assigned(Grid) then
    for i := 0 to Grid.Columns.Count - 1 do
      Grid.Columns[i].Width := Grid.ClientWidth div Grid.Columns.Count;
end;