唉,俺自己解决了:( 笨办法:( 代码示例如下: If FontDialog1.Execute Then Begin StringGrid1.Font := FontDialog1.Font; StringGrid1.DefaultRowHeight := ABS(StringGrid1.Font.Height)+8; StringGrid1.RowCount := StringGrid1.Height DIV StringGrid1.DefaultRowHeight; While StringGrid1.GridHeight >= StringGrid1.Height-4 Do StringGrid1.RowCount := StringGrid1.RowCount -1; End;
笨办法:(
代码示例如下:
If FontDialog1.Execute Then Begin
StringGrid1.Font := FontDialog1.Font;
StringGrid1.DefaultRowHeight := ABS(StringGrid1.Font.Height)+8;
StringGrid1.RowCount := StringGrid1.Height DIV StringGrid1.DefaultRowHeight;
While StringGrid1.GridHeight >= StringGrid1.Height-4 Do
StringGrid1.RowCount := StringGrid1.RowCount -1;
End;