这么个事?

[GoodBoy2003]

有个窗体名:f_frm1
打个这个窗体的代码应是:
f_frm1:=Tfrm1.create(self)
f_frm1.Show();

但现在我想动态地打开它,而我只有窗体名 :f_1(string 变量)

这种情况下，能实现吗?我得怎么写代码。。是不是得声明frm类呀?

我delphi很菜,听说这里很火，特借宝地一用.请大力等热心高手帮忙

[GoodBoy2003]

up!怎么会这样!失望,都不要出来

[sheepcyk]

var
f1:Tform;
begin
f1:=Tform.Create(self);
f1.Show;
end;
就可以了

[sheepcyk]

如果form1已经存在了，下面的就可以了。
if Form1=nil then
begin
Application.CreateForm(Tform1,Form1);
Form1.Show;
end;

[GoodBoy2003]

我现在没有窗体名(companent)
只有窗体名(string)

而且我的窗体不是自动创建的

[sheepcyk]

我现在没有窗体名(companent)
只有窗体名(string)？？？

你想实现什么功能。

[txlicenhe]

建议转版。

[GoodBoy2003]

急于求助!请大家不要至我于水深火热中

[GoodBoy2003]

比如说:有个EDIT1框,有个Button1
功能:输入Edit1 ='f_frm'时
我一点Button1 就打开了 名字为f_frm的窗体
当输入EDit2 ='f_frm2'
我一点Button1 就打开了 名字为f_frm2的窗体
请问:这个Button1的代码怎么写?(注我的窗体都不是自动创建)

前提:我想打开的窗体是已经存在的。

我写的很难理解吗????

[GoodBoy2003]

怎么没人理我

[sunshareforever]

到底是怎么个事

[kmbbo]

tform =new tform(self);
from.show();

[azsoft]

是不是这样？

for i:=0 to Screen.Formcount-1 do
if Screen.Forms[i].caption=trim(Edit1.Text) then
begin
with Screen.Forms[i] do
begin
Parent:= mainpanel;
Align:=alClient;
WindowState:= wsMaximized;
Show;
captionLabel.Caption:=caption;
end;
break;
end;

[azsoft]

for i:=0 to Screen.Formcount-1 do
if Screen.Forms[i].caption=trim(Edit1.Text) then
begin
Screen.Forms[i].Show;
break;
end;