100% ColWidth i TStringGrid

procedure TForm1.Button1Click(Sender: TObject);
var
i : integer;
begin
for i := 0 to stringgrid1.ColCount - 1 do
stringgrid1.ColWidths[i] := (stringgrid1.Width - 24) div (stringgrid1.ColCount);

end;

Stoney

Ja. Det er også sådan jeg allerede gør!, jeg undrede mig bare over hvorfor der ikke er en funktion på TStringGrid´en der gåe dette for én! Men hva ... ovenstående kode bør stå under en resize event.
Men tak - jeg går så ud fra det andet ikke findes |-: (-;