Wir haben hier doch eine Supi-Suchfunktion...
Einfach mal nach
stringgrid AND breite suchen.
Kommt unter anderem das dabei raus:
http://www.delphipraxis.net/internal...?p=23699#23699
Etwas übersichtlicher wäre es wohl so:
Delphi-Quellcode:
Var
vCol, vRow, Len : Integer,
Begin
...
For vCol := FixedCols To pred(Grid.ColCount) Do
Begin
len := 20; // min. Breite
For vRow := FixedRows To pred(Grid.RowCount) Do
If len < Grid.Canvas.TextWidth(Grid.Cells[vRow, vCol]) Then
len := Grid.Canvas.TextWidth(Grid.Cells[vRow, vCol]);
Grid.ColWidths[vCol] := len;
End;
...
End;