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;

[hoika]

Hallo,

Hansa
das GridLineWidth hat mir gefehlt.

DeddyH
und was ist mit vertikalem Scollbar ?

Tritzdem danke.
Mit allen Threads hier bekomme ich sicher eine Lösung zusammen


Heiko

[DeddyH]

Bei mir hat das auch mit Scrollbar funktioniert, probier es einfach mal.

[hoika]

Hallo,

spät aber.

Danke !


Klappt wunderbar.


Heiko