Question

delphi中tabcontrol和pagecontrol的语句转化问题

if not hasform then
begin
TabControl1.Tabs.Add(AForm.Caption);
TabControl1.TabIndex := TabControl1.Tabs.Count - 1;
end;
这个语句用的是tabcontrol写的。
请高手把这句话改成pagecontrol吧

Answer 1

var
t: ttabsheet;
begin
t := ttabsheet.create(pagecontrol1);
t.name := 'sheet';
t.caption := AForm.Caption;
t.pagecontrol := pagecontrol1;
end;

追问

FormCaption := cxtab.Tabs[cxtab.TabIndex].Caption;

这一句呢？

追答

FormCaption := pagecontrol.pages[tab.tabindex].caption

我写的是delphi默认的pagecontrol，如果你用cxpagecontrol的话，你可以参看下帮助，它的维护方法比默认的简单很多，一看就懂。