社区
Delphi
帖子详情
高手请进,如何实现这个功能?**************
jiayf020978
2003-10-15 11:05:25
例如,对于打开窗口的命令show,如果是“show”字符是要执行的命令,把“show”付给一个变量,通过什么方法实现对变量的操作,实现show命令。
谢谢!
...全文
61
5
打赏
收藏
高手请进,如何实现这个功能?**************
例如,对于打开窗口的命令show,如果是“show”字符是要执行的命令,把“show”付给一个变量,通过什么方法实现对变量的操作,实现show命令。 谢谢!
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
5 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
jiayf020978
2003-10-20
打赏
举报
回复
铁心刘 你好,你的方法我试过了,但是总是提示错误!我写的代码如下:
type
TmyForm = class of TF_test;
TF_test = class(TForm); //要调用的窗口
Tmsmq_accept = class(TForm) //当前窗口
在当前窗口的Button事件中的代码如下:
var
ss:TForm;
begin
ss := Tmyform(getclass(‘TF_test’)).create(nil); //执行到这里出错
ss.show;
end;
在打开窗口的createform事件中代码如下:
RegisterClasses([TF_test]); //这一句是做什么用的?
如果我要在Button中根据参数,即窗口的名字来动态的实现打开不同的窗口,那getclass()怎么使用,getclass的参数是一个常量,不是一个变量。
谢谢!
tiexinliu
2003-10-15
打赏
举报
回复
http://expert.csdn.net/Expert/topic/2348/2348755.xml?temp=.6515924
把所有的窗体都写成了这形势:
TmyForm = class of TformN;
TFormN = class(TForm)
然后在腰调用的窗体里面的Create加上
RegisterClasses([TFormN]);
然后
var a:Tform;
begin
a := Tmyform(GetClass('TFormN')).Create(nil);
a.Show;
end;
jiayf020978
2003-10-15
打赏
举报
回复
那如果传递的参数是一个string类型的窗口名称,只能是string类型,例如“W_main”,如果要动态创建窗口的话,如何实现?
谢谢!
tiexinliu
2003-10-15
打赏
举报
回复
除了case,if一个个判断,没有好的办法了,你是想写delphi编译器?
sailer_shi
2003-10-15
打赏
举报
回复
用Case去判断呀
VC++调试快速入门与提高
通过本课程学习,可以快学习长为VC++调试
高手
,快速提升软件开发效率,事半功倍课程简介: 在C++开发程序的过程中,您是否经常遇到过这些问题? *程序运行结果不正确,但是很难找到原因*多线程死锁,但是也很难找到问题所在*程序运行时间长了,内存居高不下*在自己的机器上运行正常,在测试的机器上就出问题*调试版运行正常,但是发布出去就运行不正常*偶尔还需要修复Linux程序的bug,但是却没有Linux环境*也偶尔遇到程序崩溃了,却没有保留现场,无从下手解决问题 没有关系,通过本课程的学习,这些问题都会迎刃而解!一路绿灯,从此告别加班与熬夜!
SpringCloud零基础_小白 入门及笔记总结
文章目录SpringCloud阶段的学习**微服务架构4个核心问题****核心问题解决方案****常见的面试问题?带着这些去学习**微服务的概述**什么是微服务?**微服务优缺点**微服务通信机制**微服务的技术栈有哪些?为什么选择SpringCloud作为微服务架构SpringCloud入门概述SpringCloud是什么SpringCloud和SpringBoot关系Dubbo和SpringCloud技术选型2、Dubbo和SpringCloud对比SpringCloud能干什么SpringCloud在
知己知彼 防范***:***对其侵占的计算机的利用
***在进行***时会借用其他系统来达到自己的目的,如对下一目标的***和被侵占计算机本身的利用等等。本文介绍了常见的***对被侵占计算机的使用方式和安全管理员相应的应对方法。 ***进行网络***时,除了自己手中直接操作的计算机外,往往在***进行时和完成之后利用、控制其他的计算机。他们或者是借此达到***的目的,或者是把这些计算机派做其他的用途。本文汇总描述了**...
奥运安全之Windows系统用户摆脱******
上网的时候,经常会发现自己的网络防火墙在不停的发出警报,专家告诉你这就有可能是遭遇了***的***。奥运即将到来,为了保证您能不受干扰的享受网络奥运信息,这里为您介绍一些摆脱这些不请自来***的办法。 一、取消文件夹隐藏共享 如果你使用了Windows 2000/XP系统,右键单击C盘或者其他盘,选择共享,你会惊奇地发现它已经被设置为“共享该文件夹...
分层纵深防御,一切******都是浮云
目前鉴于众多***技术的推广,大家都悦悦欲试,生怕少学一点日子就法活了,实在看不下去了,刚好本人在搞电子商务网站建设,由此根据自己的实际能力发表下自己的看法,仅供参考。 其实大家不知道所学的只是落后几百年的非军事民间***技术,比如metasploit,backtarck5******,nmap扫描,堆栈可执行溢出漏洞***,nmap扫面等***技术,我想这些东东,...
Delphi
5,388
社区成员
262,730
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章