请问使用StringGrid时如何确定行高和列宽？

Question

请问使用StringGrid时，我想先固定ColCount和RowCount,怎样能使stringgrid的大小改变时，rowheight 和colwidth自动改变，使其中的cells充满，且不被盖住而出现滚动条，也就是使最底下一行的下面，最右边一列的右边没有空白？

Answer 1

procedure TForm1.FormResize(Sender: TObject);
var
  c,r,i:integer;
begin
  r:=trunc((StringGrid1.Height-10)/StringGrid1.RowCount);
  c:=trunc((StringGrid1.Width-10)/StringGrid1.colCount);
  for i:=0 to StringGrid1.RowCount-1 do
    StringGrid1.RowHeights[i]:=r;
  for i:=0 to StringGrid1.colCount-1 do
    StringGrid1.ColWidths[i]:=c;
end;