如何实现form之间的切换，使得感觉是在本form的界面变化(100分)

Z

zdqian

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-27

• #1

两个form一样大小
两个form之间切换总是有明显的闪烁变化
怎么使得感觉是在同一form上的变化

 

R

redsky.l

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-27

• #2

变通一下，就用一个Form, 上面多放几个Panel, 改变Panel的Visible属性就行了

 

F

Fyx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-27

• #3

在一个Form上放个PageControl控件，把每一页的TabVisible属性都设成False

 

S

Sachow

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-27

• #4

使用PageControl来控制比较好。

 

T

terry_lzs

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-27

• #5

放一个pagecontrol，在每个页上放上你的控件
pagecontrol1.style:=tsFlatButtons;//使得pagecontrol1没有边界
pagecontrol1.align:=alclient;//占据整个窗体
pagecontrol1.tabheight:=1;//使得每个tabsheet的大小和窗体的client尽量相同
procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
begin
for i:=0 to PageControl1.PageCount-1 do
PageControl1.Pages.TabVisible:=False;
pagecontrol1.ActivePageIndex:=0;
end;
窗体的切换现在就变成了需要页面的显示设置pagecontrol1.activepageindex

 

Z

zjlcc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-27

• #6

坚决不闪，闪的话、闪的话、我我我，还是要分: )
100分我全要！！！！！！！！！！！！！！！！！
procedure TForm1.Button1Click(Sender: TObject);
begin
form2.Perform(WM_SETREDRAW,0,0);
form2.show;
form2.Perform(WM_SETREDRAW,1,0);
form1.hide;
end;
procedure TForm2.Button1Click(Sender: TObject);
begin
form1.Perform(WM_SETREDRAW,0,0);
form1.show;
form1.Perform(WM_SETREDRAW,1,0);
form2.hide;
end;

 

H

hclee

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-27

• #7

还是用PageControl好，许多向导式的安装程序也是用这种方法实现的。

 

D

delphi_lsl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-12

• #8

用pagecontrol或panel都行

 

A

aimin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-12

• #9

何必呢？何苦呢？
一个窗体，用PageControl就可以了吧。

 

S

s_3

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-12

• #10

pagecontrol!! must

 

S

sally0303

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-12

• #11

我有pagecontrol和combobox联系的代码,就是通过combobox来切换pagecontrol页,怎样才能
去掉pagecontrol上面的切换按钮. ?

 

C

coolbaby

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-12

• #12

pagecontrol or panel!

 

L

luyear

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-15

• #13

以上的辦法都可行，問題結束如何？