关于:StringGrid 列宽的问题?

Question

我在StringGrid填充字符,怎样自动根据字符的长度来改变每列的宽度?

Answer 1

可以通过Canvas.TextWidth()来计算字符串宽度，然后设置列的宽度。

Answer 2

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  str:string;
begin
  StringGrid1.Cells[2,3]:=Edit1.Text;
  if stringGrid1.ColWidths[2]<length(Edit1.Text)*5 then
    stringGrid1.ColWidths[2]:=length(Edit1.Text)*5;
  StringGrid1.Invalidate;
end;

Answer 3

length(Edit1.Text)*5;  要根据你所选的字体，以及字体大小来定。