已知一个string型的变量，如何把它转成Tform类型(100分)

L

lcl168

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-26

• #1

var
s:string;
f:tformclass;
如何将s的字符串转成tformclass类型给f

 

W

withdraw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-26

• #2

关注

 

A

Awen.ZW.Yang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-26

• #3

var i : integer;
s : string;
f : TFormClass;
begin
f := nil;
for i:= 0 to Screen.FormCount - 1 do
if Screen.Forms is TFormCLass then
if TFormCLass(Screen.Forms).Name = s then
f := TFormCLass(Screen.Forms);
if f = nil then
begin
f := TFormCLass.Create(Application);
f.Name := s;
end;
f.ShowModal;

 

Z

zw84611

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-26

• #4

http://www.delphibbs.com/delphibbs/dispq.asp?lid=1160701

 

D

dedema

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-26

• #5

当然这个字符串对应的类得先存在的.
比如'Tform',然后可以应先registerclass,然后再findclass.
EXC:

procedure showclassform(classform:string);
var Tcla:tcontrolclass;
begin
with tcontrolclass(findclass(classform)).create(nil)do
show;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
registerclass(tform);
showclassform('tform');
end;

 

L

lcl168

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-27

• #6

多人接受答案了。