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;
在PageControl中显示窗体
最后编辑于 ：
©著作权归作者所有,转载或内容合作请联系作者
- 文/潘晓璐 我一进店门，熙熙楼的掌柜王于贵愁眉苦脸地迎上来，“玉大人，你说我怎么就摊上这事。” “怎么了？”我有些...
- 文/花漫 我一把揭开白布。 她就那样静静地躺着，像睡着了一般。 火红的嫁衣衬着肌肤如雪。 梳的纹丝不乱的头发上，一...
- 文/苍兰香墨 我猛地睁开眼，长吁一口气：“原来是场噩梦啊……” “哼！你这毒妇竟也来了？” 一声冷哼从身侧响起，我...
