StringGridの列をグリッドの幅に合わせるにはどうすればよいですか？

Question

私は長い間、幸運のない解決策を模索してきました。誰かがそれを行う簡単な方法を知っていますか？グリッドの幅に合わせてグリッドの2番目の列を伸ばしたいと思います！

Answer 1

そうのように、ColWidthsプロパティを使用します。

with StringGrid1 do 
    ColWidths[1] := ClientWidth - ColWidths[0] - 2 * GridLineWidth; 

そして、より堅牢で柔軟なソリューションを、考慮にすべての固定列を取り、列インデックスをパラメータ：

procedure SetColumnFullWidth(Grid: TStringGrid; ACol: Integer); 
var 
    I: Integer; 
    FixedWidth: Integer; 
begin 
    with Grid do 
    if ACol >= FixedCols then 
    begin 
     FixedWidth := 0; 
     for I := 0 to FixedCols - 1 do 
     Inc(FixedWidth, ColWidths[I] + GridLineWidth); 
     ColWidths[ACol] := ClientWidth - FixedWidth - GridLineWidth; 
    end; 
end; 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
    SetColumnFullWidth(StringGrid1, 4); 
end; 

Answer 2

ソリューションがあれば コマンド "grid.AutoFitColumns（）" グリッドは1つの "TAdvStringGrid"です。

;）