Application.CreateForm中参数的问题

[solomon81]

Application.CreateForm(TForm,form);

我想动态地创建不同的窗体，将里面的两个参数用变量传进去

比如，我知道了窗体的类名叫做 “Tfrm”,窗体名叫做“form”，现在都是字符串形式的变量，分别在字符串变量
a,b中 ， a := "Tfrm" b := "form",请问在这种情况下，我怎样才能创建这个窗体。谢谢。

[代码跳动]

问题很模糊,为什么要动态创建,明白一点

[ljyt]

使用GetClass试试看

[shadowstar]

Form 就应该是一个变量吧，不指哪个具体类型的TForm.

如果要创建一个TForm实例，就看a与的是哪个TFrom类名相同就行了。

var
Form: TForm;

procedure LoadFrom(const FormName: string);
begin
if TForm1.ClassNameIs(FormName) then
Form := TForm1.Create(nil)
else if TForm2.ClassNameIs(FormName) then
Form := TForm2.Create(nil)
...
else raise Exception.Create('Invalid FormName');
end;

[lihuasoft]

Unit Unit1;
//.......

implementation
uses Unit2;
{$R *.dfm}

procedure CreateMyForm(const FormClassName, FormName : string);
begin
if GetClass(FormClassName) <> nil then
with TForm(TComponentClass(FindClass(FormClassName)).Create(Application)) do begin
if FindComponent(Name)<> nil then Name := FormName;
Show;
end
else
ShowMessage(Format('类%s未注册',[FormClassName]));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
CreateMyForm('TForm2', 'Form4');
end;

initialization
RegisterClass(TForm2);

finalization
UnregisterClass(TForm2);

end.

[lihuasoft]

把上面那个CreateMyForm重新改一下：

procedure CreateMyForm(const FormClassName, FormName : string);
begin
if Application.FindComponent(FormName)=nil then begin
if GetClass(FormClassName) <> nil then
with TForm(TComponentClass(FindClass(FormClassName)).Create(Application)) do begin
Name := FormName;
Show;
end
else ShowMessage(Format('类%s未注册',[FormClassName])); end
else begin
ShowMessage(Format('窗体%s已创建过',[FormName]));
TForm(Application.FindComponent(FormName)).Show;
end;
end;

[solomon81]

非常感谢，呵呵

[solomon81]

lihuasoft(坐井观天) 实在不好意思，我结贴的时候把分数弄错了，
本来100分都想给你的，有什么办法可以补救的吗？

[lihuasoft]

寒...... ^_^ 那你就再开个贴让我去领分不就结了？ 顺便散散分吧，反正留着那么多分也没啥用处...

不过无所谓的，心意有了就行，呵呵

^_^

[solomon81]

我在非技术区开了个帖子，你去顶一下吧，呵呵