关于pagecontrol的问题？(50分)

R

rev

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-17

• #1

要使tabsheet2墓碑化，该怎么实现？
并在tabsheet1中进行某个操作后，就能使tabsheet2可操作。
在进入tabsheet2时，进行判断，如果不满足，将再回到tabsheet1，如何实现？

 

荷

荷塘新月

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-17

• #2

"墓碑化"是个什么概念？

 

R

rev

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-17

• #3

使标题变灰色，不能使用

 

飘

飘摇客

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-17

• #4

if 条件 then
PageControl1.ActivePage:=TabSheet2;

 

T

tomol

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-17

• #5

1.按正常的方法，似乎不能“墓碑化”
2.if 条件为真 then
Pagecontrol1.ActivePage := TabSheet2;
3.if 条件为真 then
Pagecontrol1.ActivePage := TabSheet1;
这个可以加到Pagecontrol1的OnChange事件中，这样只要条件不满足，永远不能
跳到TabSheet2

 

S

superljj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-20

• #6

procedure TForm1.PageControl1Changing(Sender: TObject;
var AllowChange: Boolean);
begin
if 条件为真 Then
AllowChange:=False
else AllowChange:=True;
end;

 

R

rev

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-20

• #7

接受答案了.