| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1810 人关注过本帖
标题:如何动态打开窗体
只看楼主 加入收藏
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: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:神界
等 级:贵宾
威 望:423
帖 子:13688
专家分:53332
注 册: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
快速回复:如何动态打开窗体
数据加载中...
 
   



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

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