1

複数の編集コンポーネントを作成する必要がありますが、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;
4

1 に答える 1

3

デフォルトでは、1 行のエディット コントロールの高さは、フォント メトリックによって自動的に決定されます。したがって、編集を大きくしたい場合は、次のいずれかを行います。

  1. フォントを大きくする、または
  2. に設定AutoSizeしますFalse

AutoSize未使用の余分な垂直スペースがあるため、に設定された編集コントロールはFalse奇妙に見えると思います。このように構成された編集コントロールを使用したことはなく、見たことさえないと思います。

于 2013-03-28T18:04:12.380 に答える