Delphiでフレームのサイズに合わせてフォームのサイズを動的に変更

Question

私は5種類のサイズのフレームを持つアプリケーションを持っています。私は、あるフレームから別のフレームに移動するときにフレームに合わせてメインフォームを動的にサイズ変更したいと思います。

フレームのプロパティを使用してメインフォームをフレームに合わせることができますが、小さいフレームに移動すると、メインフォームはサイズを調整しません。

アイデア？

--edit

... 
TFormMain = Class(TForm) 
... 
public 
    FrameImportPackage: TFrameImportPackage; 
... 

procedure TFormMain.MenuPackagesImportClick(Sender: TObject); 
begin 
    if not (Assigned(FrameImportPackage)) then 
    begin 
     FrameImportPackage := TFrameImportPackage.Create(Self); 
     FrameImportPackage.LabelFrameCaption.Caption := 'Import or Edit a Package'; 
    end 
    else 
    begin 
     FrameImportPackage.BringToFront; 
    end; 

    FrameImportPackage.Parent := Self; 
end; 

--edit

よろしく、ピーター

Answer 1

私が正しくあなたの質問を理解していれば、あなたのサイズを変更しないフレームを持って、あなたがしたいですあなたのフレームに合わせてサイズを更新するフォーム。 DelphiがAutoSizeプロパティを使用してそれを処理させます。

フォームにAutoSize = Trueを設定します。

---

私はDelphi 2010を使用して、次のコードでAutoSizeをテストしてみた：

• 新しいVCLアプリケーションを作成します。空白のフォームに1つのパネルをドロップし、名前をそのまま（Panel1）保存します。実行時にサイズを減らすコードを記述するので、パネルが小さすぎないことを確認してください。
• フォームのAutoSizeプロパティをTrueに設定します。
• パネルに2つのボタン、Button1とButton2をドロップします。
• ダブルボタンをクリックし、次のイベントハンドラをコピー＆ペースト：

コード：

procedure TForm31.Button1Click(Sender: TObject); 
var NewR: TRect; 
begin 
    NewR := Panel1.BoundsRect; 
    Dec(NewR.Right, 32); 
    Dec(NewR.Bottom, 32); 

    Button1.Parent := Self; 
    Button2.Parent := Self; 

    Panel1.Free; 
    Panel1 := TPanel.Create(Self); 
    Panel1.BoundsRect := NewR; 
    Panel1.Parent := Self; 

    Button1.Parent := Panel1; 
    Button2.Parent := Panel1; 
end; 

procedure TForm31.Button2Click(Sender: TObject); 
begin 
    Panel1.Height := Panel1.Height - 32; 
    Panel1.Width := Panel1.Width - 32; 
end; 

これは、本質的にあなたの可能性2を処理するためのパネルのサイズを小さくする二つの方法を、提供しますシナリオ：Button1は、古いパネルを解放し、新しい、より小さいパネルを作成します。 Button2は、既存のパネルのサイズを直接変更します。どちらも期待どおりに動作します！

Answer 2

少なくともDelphi 2006には、フォームAutoSizeとは全く別のバグがあります。

TStringGridをClientWidthとClientHeightに変更すると、フォームにTStringGridを配置します（LeftとTopが等しい場合は0、等しくない場合は上部、CLientは問題ありません）。

通常、失敗すると、コントロールサイズが小さくなると、フォームサイズが縮小されません。

適切な修正はありません。オブジェクトをサイズ変更するときにフォームのclientwidthとclientheightを手動で設定する唯一の方法です。

言われています：フォームAutoSizeはうまく動作しません！これはVCLのBUGです。