这样的函数怎么写？？？？？？？(50分)

B

book523

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-15

• #1

我有很多个窗体，窗体的类名为Tfrm1,Tfrm2,Tfrmover等等，类名之间没有什么关系，
要求写一个函数，传入窗体的类名，然后把窗体显示出来？怎么写？大概意思如下？
function ShowMdiChild(TfrmClass:????):boolean;
begin
with TfrmClass.Create(Application) do
show;
.....
end;
????处怎么写？？？

 

B

book523

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-15

• #2

函数体也不一定要求象上面的一样，只要能实现相应的的功能即可

 

U

ugvanxk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-15

• #3

procedure TMainW.ShowForm(FormClass: TFormClass);
begin
With FormClass.Create(Self) do
try
ShowModal;
finally
Free;
end;
end;

 

B

book523

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-15

• #4

vgvanxk:
首先thank you!
这样做确实可以，但是如果我要传给函数的是类名的名称，即string型，我应该怎么做呢？

 

S

softdog

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-15

• #5

如果传递的是string类型，需要在程序中先注册相应的类。

 

B

book523

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-16

• #6

to softdog:
具体应该怎么做呢？

 

S

softdog

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-16

• #7

你看这两个函数的帮助：RegisterClass, FindClass

 

B

book523

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-16

• #8

好的，我试试

 

B

book523

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-16

• #9

不行啊，findclass怎么一用就出错啊

 

程

程式猎人

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-16

• #10

procedure Tform1.showform(formclass:string);
var frmclass:Tformclass;
begin
frmclass:=Tformclass(getclass(formclass));
with frmclass.Create(self) do
begin
showmodal;
free;
end;
end;
调用时要先调用registerclasses([yourclassname]);

 

徐

徐永进

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-16

• #11

同意楼上的![][]

 

B

book523

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-17

• #12

接受答案了.