Delphi/400 Tips＞入門＞StringGridの使用方法(2)＞セルの幅を文字列に合わせる

セルの幅を文字列に合わせる

1/2

セルの幅を固定値で設定するのではなく、データの最大幅に合わせて変更します。

AS400のデータをセットした後に、各セルの最大幅をTextWidthで調べてColWidthプロパティを変更します。

procedure TfrmShain.Button1Click(Sender: TObject);
var
  ・・・
  w : integer;
begin
・・・
　//列幅の調整
  for i := 0 to iMax do
    for j := 0 to jMax do
    begin
      w := Canvas.TextWidth(StringGrid1.Cells[j, i]) + 5;
      if  StringGrid1.ColWidths[j] < w  then
        StringGrid1.ColWidths[j]:= w;
    end;
end;

1/2