TStringGrid, Spaltenbreite so, dass rechts keine Lücke mehr ist

[DeddyH]

Ungefähr so?

Delphi-Quellcode:

function LastColWidth(Grid: TStringGrid): integer;
var i: integer;
    aWidth: integer;
begin
  aWidth := 0;
  for i := 0 to Grid.ColCount - 2 do
    inc(aWidth, Grid.ColWidths[i] + Grid.GridLineWidth);
  Result := Grid.ClientWidth - aWidth - Grid.GridLineWidth;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  StringGrid1.ColWidths[StringGrid1.ColCount-1] := LastColWidth(StringGrid1);
end;