如何动态创建已存在的窗口???(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, 你问题的提法本身就有问题
 
后退
顶部