在PageControl中显示窗体

procedure Tcform.SQL1Click(Sender: TObject);
var
tb: TcxTabSheet;
begin
if not Assigned(sqlFormatForm) then
sqlFormatForm:=TsqlFormatForm.Create(nil);
try
tb := TcxTabSheet.Create(self);
tb.PageControl := self.cxPageControl1;
self.cxPageControl1.ActivePageIndex := self.cxPageControl1.TabCount - 1;
tb.Caption := 'SQL格式化';
sqlFormatForm.Parent := tb;
sqlFormatForm.BorderStyle := bsNone;
sqlFormatForm.Top := 0;
sqlFormatForm.Left := 0;
sqlFormatForm.Width := tb.Width;
sqlFormatForm.Height := tb.Height;
sqlFormatForm.Align := alClient;
// sqlFormatForm.ManualDock(cxPageControl1.Pages[cxPageControl1.PageCount+1]); // 嵌入PageControl1.Pages[0]
sqlFormatForm.Show;
except
sqlFormatForm.Close;
Exception.Create('Error');
end;
end;