複数の編集コンポーネントを作成する必要がありますが、1 つの問題が発生しています。幅と高さを 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;