delphi - フレーム上に動的にオブジェクトを作成する

Question

2 つのシナリオがあります。1つは機能し、1つは機能しません。最初の (機能するもの) は、ボタンが押されると次のコードを実行するフォームに直接配置されたスクロールボックスを含みます。

procedure TForm1.Button2Click(Sender: TObject); 
begin
 DrawPanel;
end;

procedure TForm1.DrawPanel;
begin
BuildPanel; //Resides on a seperate unit code pasted below

TestPanel.Height := 40;
TestPanel.Width := 100;
TestPanel.Left := Trunc(ScrollBox1.Width / 2) - Trunc(TestPanel.Width / 2);
TestPanel.Top := Trunc(ScrollBox1.Height / 2) - Trunc(TestPanel.Height / 2);
TestPanel.Visible := True;
TestPanel.Parent := ScrollBox1;

end;

unit Unit3;

interface

uses ExtCtrls;

Var
 TestPanel : Tpanel;

Procedure BuildPanel; 

implementation

procedure BuildPanel;
begin
 TestPanel := TPanel.Create(Nil);
end;

end.

2 番目のシナリオの小さな違いを除いて、コードは同じです。スクロールボックスは、テンプレート パレットに追加され、フォームにドロップダウンされるフレーム上にあります。ボタンのクリックは次を呼び出します。

procedure TForm1.Button1Click(Sender: TObject);
begin
TestFrame.DrawPanel;
end;

procedure TTestFrame.DrawPanel;
begin
 BuildPanel; //Still points to the unit3 code above

   TestPanel.Height := 40;
   TestPanel.Width := 100;
   TestPanel.Left := Trunc(ScrollBox1.Width / 2) - Trunc(TestPanel.Width / 2);
   TestPanel.Top := Trunc(ScrollBox1.Height / 2) - Trunc(TestPanel.Height / 2);
   TestPanel.Visible := True;
   TestPanel.Parent := ScrollBox1;
end; 

ただし、実行時にトリガーされた場合、パネルはフレーム上にあるスクロールボックスに表示されません。理由がよくわかりません、誰か助けてもらえますか？質問が十分に具体的であることを願っています。不明な点があればお知らせください。前もって感謝します。

すべてのコードは次のとおりです.....うまくいけば、より明確になります。

//This is the form 
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Unit2, Unit3;

type
 TForm1 = class(TForm)
 Button1: TButton;
 TTestFrame1: TTestFrame;
 ScrollBox1: TScrollBox;
 Button2: TButton;
 procedure Button1Click(Sender: TObject);
 procedure FormShow(Sender: TObject);
 procedure FormClose(Sender: TObject; var Action: TCloseAction);
 procedure Button2Click(Sender: TObject);
private
 { Private declarations }
 TestFrame: TTestFrame;
 Procedure DrawPanel;
public
 { Public declarations }
end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
 TestFrame.DrawPanel;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 DrawPanel;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 TestFrame.Free;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
 TestFrame := TTestFrame.Create(Form1);
end;

procedure TForm1.DrawPanel;
begin
 BuildPanel;

 TestPanel.Height := 40;
 TestPanel.Width := 100;
 TestPanel.Left := Trunc(ScrollBox1.Width / 2) - Trunc(TestPanel.Width / 2);
 TestPanel.Top := Trunc(ScrollBox1.Height / 2) - Trunc(TestPanel.Height / 2);
 TestPanel.Visible := True;
 TestPanel.Parent := ScrollBox1;

end;

end.

//This is the frame
unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, Unit3;

type
 TTestFrame = class(TFrame)
 ScrollBox1: TScrollBox;
private
 { Private declarations }
public
 { Public declarations }
  Procedure DrawPanel;
end;

implementation

{$R *.dfm}

{ TTestFrame }

procedure TTestFrame.DrawPanel;
begin
 BuildPanel;

 TestPanel.Height := 40;
 TestPanel.Width := 100;
 TestPanel.Left := Trunc(ScrollBox1.Width / 2) - Trunc(TestPanel.Width / 2);
 TestPanel.Top := Trunc(ScrollBox1.Height / 2) - Trunc(TestPanel.Height / 2);
 TestPanel.Visible := True;
 TestPanel.Parent := ScrollBox1;

end;
end.

//This is the unit that mocks my data structure
//In reality it creates an Array of Tpanel that is part of a class.                                                                                                         
unit Unit3;

interface

uses ExtCtrls;

Var
 TestPanel : Tpanel;

Procedure BuildPanel;

implementation

procedure BuildPanel;
begin
 TestPanel := TPanel.Create(Nil);
end;

end.