请教 统一界面打开的方式 方法 ( 积分: 25 )

C

colonel

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-02-28

• #1

为了统一界面打开的方式，我想用一函数Open（类名）打开一个界面，统一参数传递返回方式，所有窗体都继承自一基类窗口EsForm

 

C

colonel

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-02-28

• #2

为了统一界面打开的方式，我想用一函数Open（类名）打开一个界面，统一参数传递返回方式，所有窗体都继承自一基类窗口EsForm

 

A

AotingSoft

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-03-07

• #3

type BaseClass = class of EsForm;
procedure Open(ClassName: BaseClass);
var
AForm: EsForm;
begin
AForm := ClassName.Create(nil);
AForm.Show;
end;
这个函数希望可以帮你

 

C

colonel

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-05-31

• #4

接受答案了.