我用一下代码动态创建了一个窗体，并自动停靠进PageControl中，但是却无法拖出，且窗体在PageControl中无法移动，缩放和关闭。
procedure NewForm;
var
  f: TForm1;
  tab: TTabSheet;
begin
  tab:=TTabSheet.Create(Form2.PageControl1);
  tab.Parent := Form2.PageControl1;
  tab.PageControl := Form2.PageControl1;
  f := TForm1.Create(tab);
  f.Parent :=tab;
  f.Show;
  f.Dock(tab,tab.ClientRect);
  Form2.PageControl1.ActivePage := tab;
end;
动态创建的窗体dragmode=dmautomatic,dragkind=dkdock。
而将停靠语句f.Parent :=tab;f.Dock(tab,tab.ClientRect);去掉，产生的窗体被拖进PageControl后却能再拖出。
我使用的是Delphi XE2编译器。
f.Dock(tab,tab.ClientRect);//tab.ClientRect应该民这个导致的
F.Parent := nil;窗体就自动出来了。。。我要的是能够用鼠标拖出来