极其简单的问题，Pagecontrol上如何建立新Tabsheet!!!(50分)

N

nuke

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-01-30

• #1

呵呵！简单的控件应用提问，让大家见笑了！
以前很少用pagecontrol
可别让我自己Help,刚才看了半个小时也没找到方法。

 

L

lha

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-01-30

• #2

谁知道请E-Mail我，
今天早上我也想了好久

 

N

nuke

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-01-30

• #3

o
呵呵，也有和我一样的啊

 

E

eastfan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-01-30

• #4

右键单击该控键--》弹出菜单--》选第一项：*neo page
呵呵呵.....

 

N

nuke

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-01-30

• #5

非也非也
我指程序运行时动态添加！

 

Z

zyxxyz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-01-30

• #6

我也想知道,又哪位知道请E-mail一下.

 

N

nuke

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-01-30

• #7

呵呵！
又研究了半个小时，自己搞定了
var Thetabsheet:ttabsheet;
begin
TheTabSheet := TTabSheet.Create(Self);
TheTabSheet.Parent := Pagecontrol;
TheTabSheet.PageControl := PageControl;
TheTabSheet.Caption := 'New';
end;

我的分数？？？？
:..........((

 

C

chen gubin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-01-30

• #8

with TTabSheet.Create(Self)do
begin
PageControl:=PageControl1;
Caption:='New TabSheet';
end;

 

L

lha

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-01-30

• #9

我试了几个小时，终于OK了，
(Sorry, I use C++ Builder,You can translate it into Delphi)
用以下代码即可：
void __fastcall TForm1::Button1Click(TObject *Sender)
{
TTabSheet *p;
p = new TTabSheet(this);
// 注意 p->Name 每次必须不同
p->Name = AnsiString("Page")+PageControl1->Tag++;

p->Caption =p->Name;
p->PageControl = PageControl1;
}
最后，在FORMDESTROY时，须Delete(即free) 生成的page;

 

H

hi_liuyang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-01-30

• #10

TTabSheet的Help的Example中就有

 

N

nuke

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-01-31

• #11

hehe
刚好5个人，大家分啦