标题:如何动态打开窗体
只看楼主
jonyhuang
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2012-7-7
结帖率:0
已结贴  问题点数:20 回复次数:2 
如何动态打开窗体
aa.form窗体已存在,想通过变量赋值方式将其打开。
procedure TmainForm.run_program;
var     myform:tform;
    p_form:string;
begin
      p_form:='aa';
       MyForm := (Application.FindComponent(p_form) as TForm);
       Myform.ShowModal;
end;

结果是‘aa’无法赋值给MYFORM,MYFORM显示为NILL,无法打开该窗体
请各位高手给予指正,如何实现
搜索更多相关主题的帖子: procedure 动态 如何 
2013-08-03 16:12
wp231957
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:神界
等 级:版主
威 望:422
帖 子:13681
专家分:53296
注 册:2012-10-18
得分:20 
问过度娘了吗

DO IT YOURSELF !
2013-08-06 07:52
lfq24
Rank: 2
等 级:论坛游民
帖 子:3
专家分:20
注 册:2009-2-2
得分:0 
我试过了,可以的,前提是 aa  这个窗口要先加载 并且是属于Application 的,如Application.CreateForm(Taa, aa); 否则,FindComponent找不到它
2013-09-05 23:12



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-418551-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 1.343985 second(s), 8 queries.
Copyright©2004-2025, BCCN.NET, All Rights Reserved