简单的送分题！(100分)

J

jericho3164

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-13

• #1

我用PageControl建立了很多个页标签，希望关闭一个页标签后自动跳到上个作为当前窗口的页面。如果没有上个当前窗口，那么就安排下一个窗口为当前窗口。怎么办？用PageControl.ActivePageIndex:=PageControl.PageCount-1;的话，它并不是直接的切换到，而是他要从第一个窗口切换过来，让人感觉很不舒服，怎么办?

 

P

Pearl.

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-13

• #2

什么意思呀？
PageControl.ActivePage := PageControl.Pages[PageControl.PageCount-1]呢？

 

P

peng_qs

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-13

• #3

页标签关闭什么意思啊?动态释放?如果是,可能没辄,只要释放的是最后一个页,它就自动将
第一个PAGE设置为当前页

 

张

张无忌

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-13

• #4

你判断一下PageControl.PageCount和PageControl.ActivePage的关系啊
if PageControl.ActivePage=PageControl.PageCount-1 then
到地一个窗体
else
到下一个窗体

 

Y

yfdciom

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-13

• #5

你必须在标签关闭之前判断，否则，当关闭之后，activepage已经改变了，当然不对。

 

J

jobsxy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-13

• #6

所有关闭事件指向：

PageControl1.ActivePage.Free; //释放当前页

if PageControl1.ActivePageIndex> 0 Then
PageControl1.ActivePageIndex:= PageControl1.ActivePageIndex-1
else
if PageControl1.ActivePageIndex+1 < PageControl1.PageCount -1 then
PageControl1.ActivePageIndex:= PageControl1.ActivePageIndex+1
else
PageControl1.ActivePageIndex := 0;

 

J

jericho3164

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-24

• #7

多人接受答案了。