TLayout with TLabel

Question

私は最新のDelphi 10.1を使用してマルチデバイスアプリケーションを作成しています。私はTLayoutを持っていて、Alignがtopに設定されています。私はTLayoutにあるTLabelを持っていて、AlignをClientに設定し、そのTLabel.AutoSizeをTrueに設定しています。

長いラベルのテキストがある場合、TLabelが大きくなりますが、TLayoutは成長しません。

どうすればこの問題を解決できますか？

Answer 1

ラベルの新しいサイズは、テキストを変更するとすぐにわかります。
Label.Widthは、サイズ変更された幅を反映して更新されます。

3つのオプションがあります。ラベルのテキストを変更

1. 毎回は、また、そのwidthを読み、（推奨されません）と一致するように関連付けられているTLayoutを更新します。

2. は、ラベルのOnResizeイベントを割り当て、このような何かを行う（推奨）：あなたはすべてのラベルに同じイベントを使用することができます

 
    procedure TForm45.Label1Resize(Sender: TObject); 
    const 
     ExtraWidthOfLayout = 10; 
    var 
     Lbl: TLabel; 
     Layout: TLayout; 
    begin 
     if (Sender is TLabel) and (TLabel(Sender).Parent is TLayout) then begin 
     Lbl:= TLabel(Sender); 
     Layout:= TLayOut(Lbl.Parent); 
     Layout.Width:= Lbl.Width + ExtraWidthOfLayout; 
     end; 
    end; 

注意を。

3. TLabel.DoResizeをオーバーライドする融合レイアウトとラベルからなる新しいコントロールを作成します。