请教:如何将类名作为形参传递?(29分)

B

base7

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-19

• #1

比如我有一个函数:

代码:

procedure TfrmMain.ShowMDIForm(FormName: TForm
FormClass: TClass);
var
  i: Integer;
begin
  ...
  FormName := FormClass.Create(FormName));
end;

如何定义这里面的FormClass?(TClass是肯定不行的啦)
大侠救命则个...3x a lot!

 

T

tseug

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-19

• #2

type
TFormClass = class of TForm;

FormClass : TFormClass;

 

特

特尔斐

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-19

• #3

为什么要这样做？能说一下理由吗？

 

B

base7

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-19

• #4

接受答案了.

 

H

huawdg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-19

• #5

type
TFormClass=class of TForm;

procedure TfrmMain.ShowMDIForm(FormName: TForm
FormClass: TFormClass);
var
i: Integer;
begin
...
FormName := FormClass.Create(FormName));
end;