更改组件的从属关系

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;