Delphi动态创建多个编辑组件

Question

我需要创建多个编辑组件，但我遇到了1个问题。 我需要将宽度和高度设置为一个固定值。 问题是我不能改变高度，当我这样做时它根本不会改变。 奇怪的是，当我改变宽度时它工作得很完美（所有编辑都有我在此函数中设置的宽度值）。

这是我的函数代码：

procedure Tform1.editcreate;

var i,j: integer;
    sud: array [1..9,1..9] of TEdit;

begin
for i:=1 to 9 do
 for j:=1 to 9 do begin
  sud[i][j]:=TEdit.Create(form1);
  sud[i][j].Height:=50;
  sud[i][j].Width:=50;
  sud[i][j].top:=50*i;
  sud[i][j].left:=50*j;
  sud[i][j].Parent:=form1;
  end;
end;

Answer 1

默认情况下，单行编辑控件的高度由字体指标自动确定。因此，如果您希望编辑更大，请：

1. 使其字体变大或
2. 将AutoSize设为False。

我认为将AutoSize设置为False的编辑控件由于额外未使用的垂直空间而看起来很奇怪。我认为我从未使用过，甚至没有看过如此配置的编辑控件。