delphi - 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看起来很奇怪。我认为我从未使用过，甚至从未见过如此配置的编辑控件。