hab noch nen code von mir gefunden...
Delphi-Quellcode:
//////////////////////////////////////////////////////////////////////////////
// Spaltengröße von StringGrids anpassen
//
// max=0 dann grid nach größter spaltenbreite anpassen
//
procedure GridColWidth(grd:TStringGrid;min,max:word);
var
Zeile,Spalte,tmp,len: word;
begin
with grd do begin // für alle Spalten
for Spalte:=0 to (ColCount -1) do begin
len:=0;
for Zeile:=0 to (RowCount-1) do begin // für alle Zeilen
tmp:=Canvas.TextWidth(Cells[Spalte,Zeile]);
if tmp>len then len:=tmp // neue max Breite
end; // for Zeile
if max>0 then if len>max then len:=max; // Maximalbreite
if len<min then len:=min; // Minimalbreite
ColWidths[Spalte]:=len+GridLineWidth+5 // Spalte verbreitern
end // for Spalte
end // with
end;
kannst du ja anpassen