Tabsheet的动态创建和释放有问题....(100分)

J

jman168

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-06-02

• #1

procedure TForm1.Btn_AddClick(Sender: TObject);
var Tabsheet:TTabSheet;
i:integer;
begin
for i:=1 to 15 do
begin
Tabsheet:=TTabsheet.Create(self);
Tabsheet.PageControl:=PageControl1;
Tabsheet.Name:='Tabsheet'+IntToStr(i);
Tabsheet.Caption:='Jman建'+IntToStr(i);
end;
end;

procedure TForm1.Btn_FreeClick(Sender: TObject);
var i:integer;
begin
for i:=0 to 14 do
pageControl1.Pages.Free ;
end;

end.
释放中出错 为什么 先谢了,.学习中

 

M

muhx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-06-02

• #2

procedure TForm1.Button1Click(Sender: TObject);
var Tabsheet:TTabSheet;
i:integer;
begin
for i:=1 to 15 do
begin
Tabsheet:=TTabsheet.Create(PageControl1);
Tabsheet.PageControl:=PageControl1;
Tabsheet.Name:='Tabsheet'+IntToStr(i);
Tabsheet.Caption:='Jman建'+IntToStr(i);
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var i:integer;
begin
while PageControl1.PageCount <> 0 do
PageControl1.ActivePage.Free;
end;

 

B

bigwell

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-06-03

• #3

for i:=14 downto 0 do
pageControl1.Pages.Free

 

H

hygsxy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-06-03

• #4

begin
for i:=0 to 14 do
PageControl1.ActivePage.Free;//释放的正确方法。
end;

 

H

hygsxy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-06-03

• #5

pagecontrol组件总觉的有很多BUG啊。

 

J

JamesBond_L

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-06-03

• #6

procedure TForm1.Btn_AddClick(Sender: TObject);
var Tabsheet:TTabSheet;
i:integer;
begin
for i:=1 to 15 do
begin
Tabsheet:=TTabsheet.Create(self);
Tabsheet.PageControl:=PageControl1;
Tabsheet.Name:='Tabsheet'+IntToStr(i);
Tabsheet.Caption:='Jman建'+IntToStr(i);
end;
end;

procedure TForm1.Btn_FreeClick(Sender: TObject);
var i:integer;
begin
for i:=14 downto 0 do
pageControl1.Pages.Free ; //某个Page在Free后，它的Count就少了一个，到了某个Pages[x]就会超出范围了。
end;

end.

 

网

网事如风

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-06-03

• #7

这样没问题：

procedure TForm1.Btn_FreeClick(Sender: TObject);
begin
while PageControl1.PageCount <> 0 do
PageControl1.ActivePage.Free;
end;

 

J

jman168

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-06-03

• #8

谢谢以上各位~!

 

J

jman168

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-06-03

• #9

多人接受答案了。