application.createform(Tform1,form1) 如果 TForm1是一個表中的某字段的內容,又怎樣搞呀?(在線等待中......)(1

B

bolly

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-03

• #1

application.createform(Tform1,form1) 如果 TForm1是一個表中的某字段的內容,又怎樣搞呀?(在線等待中......)(100分)<br />application.createform(Tform1,form1) 如果 TForm1是一個表中的某字段的字符內容,又怎樣搞呀?如:
pro_name:=Table1.FieldByName('pro_name').asString;
application.createform('T'+pro_name,pro_name) //我知道這句是錯誤的,但我不知怎麼去寫呀,請各位幫忙,謝謝~
pro_name.show;

 

W

wlmmlw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-03

• #2

哦，不可能是这样的。
把pro_name变成一个类类型吧。

 

B

bolly

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-03

• #3

怎麼變~~~~
代碼~~~~

 

T

tangzwei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-03

• #4

gz

 

T

twos

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-03

• #5

FindClass('T'+pro_name)

 

天

天与地

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-03

• #6

我有个办法，你先通过类建一个实例，然后把实例的名字付成你的字符串。

 

S

shenloqi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-03

• #7

FindClass应该是可以的。

 

惊

惊弓之亮

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-03

• #8

看看吧,也许能帮你
procedure TForm1.Button1Click(Sender: TObject);
var
Forms:array[0..3] of Tform1;
i:integer;
begin
for i:=0 to 3 do
begin
forms:=Tform1.Create(nil);
forms.Left:=200-5*i;
forms.top:=200+5*i;
forms.Name:=char(i+78);
forms.Caption:=forms.name;
forms.show;
end;
end;

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-03

• #9

getclass 不行?!
有字符串到类的转换或函数就好了.
不太好办.

 

G

glbboy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-03

• #10

我也很想知道。
现在的解决方法是，保存名称的同时，保存类。
当然是保存在TStringClass里面。

 

Z

zyf23

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-03

• #11

关注一下！

 

S

shangshang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-04

• #12

TFormClass(FindClass('TForm1')).Create.ShowModal;
不能再用Application.CreateForm来创建了，变量名自己声明一个吧。
myform:Tform;
myform:=TformClass(FindClass('TForm1').Create;
myform.show;

注意再程序运行前必须执行
registerClass(Tform1); 一般放在initialization部分

 

X

xusong168

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-04

• #13

If pro_name='Form1' Then
application.createform(TForm1,Form1)
Else If pro_name='Form2' Then
application.createform(TForm2,Form2)
...

 

W

wiseinfo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-04

• #14

关注!!!!

 

G

glbboy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-04

• #15

shangshang的方法还是比较好的，不过不知道有没有一下把主窗体应用
的其他窗体一下都注册完的属性。

 

B

bolly

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-07

• #16

多人接受答案了。