TForm我打开问题！！！！(100分)

S

shenfeng_126

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-13

• #1

有一个Form,name=Form1

请问如果只知道Form的名字，能不能打开这个Form

比如说把Form的名字赋给str

str = 'Form1';
如何通过str这个字符串打开这个窗体呢？

 

I

iceapi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-13

• #2

这种应用的方法,通常是用脚本来实现的. 然后再做强制类型转换.

另外一种方法, 是比较合理的. 那就是自己写一个类工厂, 然后根据名称来创建类的实例.
否则没办法实现,因为类型是络还是要有定义的.

 

S

shenfeng_126

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-13

• #3

类工厂??
能否给我一简单的例子？？？

谢谢！！！！！！！！

 

I

iceapi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-13

• #4

为什么都要代码呢, :-/


TXForm = class(TForm)
...
end;

TAForm = class(TXForm)
...
end

TBForm = class(TXForm)
...
end

TFormFactory = class
function CreateForm(AFormName: string):TXForm;
end;

function CreateForm(AFormName: string):TXForm;
begin
if (AFormName = 'AForm') then
result := (TAForm.Create(nil) as TXForm);
end
else if (AFormName = 'BForm') then
result := (TBForm.Create(nil) as TXForm);
end

 

S

shenfeng_126

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-13

• #5

不要代码，不会啊
哈哈

我来试试看，多谢了

 

I

iceapi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-13

• #6

不客气.

 

S

shenfeng_126

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-13

• #7

不好意思，我还是不会写，能不能帮我写在一个unit里面，
完整一点的，小弟实在是不会
麻烦了

 

S

shenfeng_126

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-14

• #8

不用了，我搞定了
谢谢