更改組件的從屬關係

procedure TForm1.ToolButton1Click(Sender: TObject);
begin
  Edit1 := TEdit.Create(Panel1);  // 將panel放在Edit控件上,Panel屬於Edit
  Edit1.Parent := self;                    // Edit的父類是本身
  Edit1.Show;
end;

// 刪除組件
procedure TForm2.ToolButton1Click(Sender: TObject);
begin
  Panel1.RemoveComponent(Edit1);   // 刪除組件Edit，這裏刪除了Edit1就刪除了Panel1
  Panel1.Free;
end;

// 刪除父組件
procedure TForm3.ToolButton1Click(Sender: TObject);
begin
   Edit1 := TEdit.Create(self);    // 建立本身
   Edit1.Parent := Panel1; // 父類是Panel
   Edit1.Show;  // 顯示Edit1

   Panel1.RemoveControl(Edit1); // 解除從屬關係   

   Edit1.Parent := self; // 創建窗體對象與Edit的父子關係
end;