実行時作成パネルでコンポーネントを作成するにはどうすればよいですか？

Question

いくつかのラベルを含むパネルコンポーネントを作成したいと思います。私のコードは以下の通りで、パネルは作成されますが、ラベルは作成されません。エラーメッセージは「アドレス0040452Aのアクセス違反...アドレスFFFFFFD0の読み取り」です。

rScan:=rScan+1; 
// create panel 
with TPanel.Create(self) do begin 
    Parent:=sxScan; 
    Name:='pnScanItem'+IntToStr(rScan); 
    Left:=0; 
    Top:=4+(rScan-1)*67; 
    Width:=983; 
    Height:=68; 
    Caption:=''; 
    vHandle:=Handle; 
end; 
// create label 
with TLabel.Create(self) do begin 
    Parent:=TWinControl(vHandle); 
    Name:='lbScanNam'+IntToStr(rScan); 
    Left:=11; 
    Top:=4; 
    Font.Size:=14; 
    Caption:='.....'; 
end; 

Answer 1

それは一つではないので、あなたは、TWinControlとしてTPanel.Handleを型キャストすることはできません。それは窓のハンドルです。

代わりに作成しているパネルへのローカル参照を保存し、ラベルの親として使用します。

var 
    Pnl: TPanel; 
begin 
    Pnl := TPanel.Create(Self); 
    with Pnl do 
    begin 
    Parent := ... 
    // Other panel setup code 
    end; 
    with TLabel.Create(self) do 
    begin 
    Parent := Pnl; 
    // Other label setup code 
    end; 
end;