delphi 动态创建窗口的问题??
各位老大,问一下如何
Application.CreateForm(Findclass('TF_showform'), TForm('F_showform'));
用代变量方法创建窗口.
试过几种方法如:
var
Fromname,classname:string;
FindForm:TForm;
FindFormClass:TFormClass;
Fromname :='F_showform';
FindForm :=Tform(Fromname);
classname:='T'+'F_showform';
FindFormClass:=TFormClass(Findclass(classname));
if FindFormClass<>nil then
begin
application.Createform(FindFormClass,FindForm);
FindForm.Show;
end;
到FindFormClass:=TFormClass(Findclass(classname)); 报错
提示没有发现Class.
请问谁有好的方法,帮小弟解决一下!!!!!谢了