动态切换窗口(100分)

X

xiachang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-13

• #1

今有若干Form（Form1,Form2，Form3...),已制作好,现定义一字符串变量
var
CurrentForm:string;
给变量赋值
case Inputparm of
1: CurrentForm:='Form1';
2: CurrentForm:='Form2';
3: CurrentForm:='Form3';
.
.
.
end;
现要利用变量CurrentForm把已制作好的窗口运行出来,如何解决?

 

P

pxd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-13

• #2

为啥不直接用Form引用，
1:CurrentForm = form1;
2:CurrentForm = form2;
3:CurrentForm = form3;
...

 

C

Crab

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-13

• #3

这样不行么？
Case inputparm of
1: form1 := tform1.Create(application);
form1.show;
form2.update;
2:..
end;

 

X

xiachang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-14

• #4

当前窗口字符串是从一数据库中一字段取得！

 

W

wolf_cyj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-06

• #5

function FindClass(const ClassName: string): TPersistentClass;
然后显示。

 

J

jianl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-06

• #6

现要利用变量CurrentForm把已制作好的窗口运行出来,如何解决?
Var pformoint;

case Inputparm of
1: pform := form1;
2: pform := form2;
3: pform := form3;
.
.
.
end;
以后你就可以这样：
TForm(pform).show;

这是我找到的最好的方法了。

 

A

Another_eYes

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-06

• #7

TForm(Application.FindComponent(CurrentForm)).Show;

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-10-05

• #8

多人接受答案了。