如何在tabcontrol 或pagecontrol 动态加入页(50分)

S

Soar-z

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-03

• #1

如何在tabcontrol 或pagecontrol 动态加入页
每页中有 listbox,内容需动态加入且不同.

 

C

cAkk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-03

• #2

var ts:ttabsheet;
lst:tlistbox;
begin
ts:=ttabsheet.Create(pagecontrol);
ts.Name:='xxxx';
ts.Caption:='xxxxx';
ts.PageControl:=pagecontrol;

lst:=tlistbox.Create(ts);
lst.name:=....;
lst.parent:=ts;

ts.InsertControl(lst);

 

S

SuperMMX

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-05

• #3

给分吧，

to cAkk:
不用 ts.InsertControl(lst); 行吗？只设置 parent,

 

S

Soar-z

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-06

• #4

多人接受答案了。