如何动态创建已存在的窗口？？？(20分)

  • 主题发起人 主题发起人 Rabbit_Lap
  • 开始时间 开始时间
registerclass有什么用呢，你没明白提问老兄的意思吗？
他的意思除了在定义一个窗体的时候出现TForm1,TForm2，在他的程序中就再也不要出现
TForm1,TForm2了，而是把放在数据库表中的记录'TForm1','TForm2'变成TForm1,TForm2
registerclass不还是要regeisterclass([TForm1,TForm2]),它总不能
registerclass(['TForm1','TForm2'])
 
函数，接着了，我可是都用这个创建我的窗体
function ShowModalForm(FormClass: TFormClass): TModalResult;
begin
with FormClass.Create(Application) do
try
Result := ShowModal;
finally
Free;
end;
end;
 
别忘了给分
 
楼上的，给分，怎么给啊，你的函数参数怎么传，传一个'TForm1'传一个'TForm2'？
 
myForm := TForm1.Create(Application);
with myForm do begin
{初始化}
...
show(showmodal);
free;
end;
 
LiChaoHui,那你就大方的送个给老弟吧，在此先谢过了
 
谢谢大家的关注，虽然问题没有得到根本的解决，但还是学到了些东东的，大家都给点分哦
 
留下你的邮箱吧？
 
楼上的，接着了，
bhwjg@21cn.com
 
好，其实我也没解决啊
例子我也想要，要分么？说下可以
cp0574@sina.com，先谢了
 
例子程序已经发送，
楼上的：如果觉得例子好，就给两分，如果不好，就拉倒
 
要把一个字符串变为类确实很累。
不过字符串就是字符串，如果程序里面本没有类，
光靠字符串怎么生出类来？
是不是要把类也存到数据库中去？
关注。
 
我的邮箱是Rabbit_lap@163.net
 
ok,已发送，
 
Rabbit_Lap, 你问题的提法本身就有问题
 
您必须登录或注册才可回复。

Similar threads

S
【教程】QJSON 创建根结点为数组的 JSON 内容
回复
0
查看
510
swish
S
S
[教程]基于 RTTI 创建特定类型的实例
回复
0
查看
788
swish
S
S
[原]UNIGUI如何禁止关闭新窗口
回复
0
查看
768
SUNSTONE的Delphi笔记
S
S
[原]UNIGUI如何禁止关闭新窗口
回复
0
查看
681
SUNSTONE的Delphi笔记
S
S
[转]ClientDataSet加上TDataSetProvider的数据保存问题
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
后退
顶部