超级难题：如何将一个窗体添动态添加到TPageControl中？

[hustwjz]

我有多个独立的窗体，他们都有独立的功能。现在我向将这些窗体运行时添加到TPageControl中，就如同在TPageControl中添加一页一样，请问该如何实现？

那些窗体的代码恨复杂，如果在TPageControl重新手工添加类似的页面则工作量很大，而且代码重复，不利于程序的维护。

[gobiz]

NewTabSheet.Create;
NewTabSheet.Parent -> PageControl;
NewForm.Create;
NewForm.Parent -> NewTabSheet;
NewForm.Show;

[aiirii]

class function TConsoleAdapter.SetChildForm(ParentControl: TWinControl;
var ChildForm: TForm; ChildClass: string): boolean;
var
FormClass: TFormClass;
begin
if not Assigned(ChildForm) then
begin
FormClass := TFormClass(GetClass(ChildClass));
if Assigned(FormClass) then
ChildForm := FormClass.Create(ParentControl);
end;

ChildForm.Visible := False;
ChildForm.BorderStyle := bsNone;
ChildForm.SetBounds(0, 0, ParentControl.Width, ParentControl.Height);

Windows.SetParent(ChildForm.Handle, ParentControl.Handle);
ChildForm.Visible := True;

TConsoleAdapter.SetConsoleEnabled(True);

Result := True;
end;

類似, 修改下就可