更改组件的从属关系

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;