说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

Delphi中TApplication类

HTML文档下载 WORD文档下载 PDF文档下载
Delphi中TApplication类

Delphi是一种面向对象的编程语言,由于它采用完全集成OOP的优点,因此使它成为目前十分流行的Windows开发工具。在Delphi包含的众多类中,TApplication是一个有着十分重要作用的类。TApplication类是用于描述Delphi编制的应用程序的一个类。通过对这个类的灵活应用可以编制许多有特点的程序。下面我们就举几个这方面的例子。

1 检测当前Windows程序是否被激活:

Tapplication类有一个属性——Active,这个属性就可以描述当前运行的程序是否被激活,成为Windows的焦点。检测的代码如下:

If Application.Active=False then

ShowMessage(’当前窗口没有被激活’);

2 取得当前程序的名称:

Tapplication类的EXEName属性可以返回这个可执行程序的完整文件名(包含路径)。实现的代码如下所示:

ShowMessage(Application.ExeName);

3 改变程序极小化时的标题

如果您细心观察可以发现,一些程序的标题和程序的名称并不一致,尤其是一些英文程序,窗体的标题栏比较长,可以容纳比较多的文字,而在最小化时,往往变成了很少的几个字母。这中间起作用的就是Tapplication类的Title属性。这个属性决定了程序最小化时的标题,而窗口中标题栏的标题是由Form的Caption属性来决定的。其代码如下:

Form1.Caption:=’ 窗口的标题’;

Application.Title:=’程序的标题’;

其实我们也可以在在程序设计时指定Tapplication类的Title属性值。操作的方法是在开发环境中拉下Project菜单

选择Options菜单时弹出如图1 (略)的对话框。在这个对话框中的Title栏中填写程序的标题一样也可以达到这种效果。并且因为一般的工程文件都是以英文命名的,所以程序运行过程中弹出的消息框中的标题是英文。但在指定了这个属性之后,这个程序的所有消息窗口的标题都变为Title的值。这就使得程序看起来更加完整。

4 指明程序的主窗口

Windows系统中的界面都是窗口,但一般来讲有一个主窗口。Tapplication的MainForm属性就可以返回程序的主窗口。

5 显示消息框

Delphi有许多显示消息框的函数与过程,比较常用的是ShowMessage,它用起来虽然十分方便,但是却有一个问题,那就是这个消息框的按钮是以英文显示的。如果要生成一个含有中文显示的按钮就要求助于Tapplication的MessageBox函数了。这个函数的原形如下:

function MessageBox(Text

Caption: Char; Flags: Longint): Integer;

在这个函数中,前两项分别是显示的提示信息和消息窗口的标题,Flags是一个长整值,用来指定按钮的个数及功能。熟悉Delphi的用户可能会注意到,这个函数和Delphi 3所提供的同名函数有一点不同,那不是这个版本中字符串参数都以字符的形式给出,而不再要求将其转化成指针。我们在使用时要注意加以区别。

Application.MessageBox('需要存盘吗?'

'提示信息'

MB_OKCANCEL); 这个语句在运行时显示的样式如图2 (略) 所示。

最后就这个函数的返回值作一些说明,实际上这个函数返回的是一个整型的数值,而这个数值被系统指定了具体的含义,比如:按下“确定”按钮时返回的值是“1”,而其它按钮的值列在表 1 中。

表 1 按钮的意义及系统中对其定义的值

按钮的意义 按下此按钮时函数返回的值

IDABORT 3

IDCANCEL 2

IDIGNORE 5

IDNO 7

IDOK 1

IDRETRY 4

IDYES 6

6 控制窗口的尺寸

一般可以用窗口手柄来调整窗口的尺寸,但是也可以用Application的事件来调整。实现的方法是用以下两个过程:

Application.Minimized;

Application.Restore;

前一个过程用来将程序的主窗口最小化,而后一个过程用来将最小化的窗口恢复到原来的尺寸。

7 链接联机帮助文件

Application的CurrentHelpFile属性能够指定当前程序所用的联机帮助文件的文件名。这个属性经常与另一个方法联合在一起使用。举例如下:

Application.HelpFile := '联机帮助文件名';

Application.HelpJump('联机帮助文件的主题’)

通过这一命令组合,我们就能使系统弹出一个显示某主题的联机帮助文件。

8 在程序运行时动态地创建窗口

一般情况下,窗口是在设计时加入到工程项目中的,但是有时也需要我们在程序运行时动态地加入窗口,这就要用到Application 的CreateForm过程,举例如下:

Form3:Tform3; //声明窗口类

Application.CreateForm(TForm3

Form3); //创建窗口

9 结束程序

虽然我们可以用关闭主窗口的方法来关闭一个程序,但是更好的办法是用Application的Terminate过程。它能够起到更彻底地关闭程序的效果。

10 Destroy 属性.

虽然Delphi提供了这一属性

但是并不提倡使用它

如果要终结程序就要调用Terminate过程,而Destroy过程一般是用来在程序发生悬挂时来退出程序时才调用,有些类似Windows中的结束任务功能。它不仅能关闭程序实例本身,而且还能释放程序所占用的资源,能够达到将程序彻底清除出系统的目的。

首款使用HSA架构的Kaveri APU、多款异构计算开发工具APU13上齐亮相 分享10段实用的HTML5代码 十条建议送给那些初入职场的小白 这是要灭掉DC的节奏?谷歌欲推Android摄像头API 支持RAW 专访产品经理Markus Spiering:冬眠多年后的Flickr如何在夹缝中生存? 创业与投资专题论坛:硬件的现在!创业的未来? 造就Office新用法:微软推WP应用 可遥控Office文件 成为一名PHP专家其实并不难 前富士康CEO程天纵:创新来自长尾,创业源于创客! 最危险的开源项目——比特币 11月20日:微软正式发布Windows 1.0 回顾历代Windows版本界面 微软CEO鲍尔默卸职前在股东会上的最后演讲 微软改革员工排名制度或将开启新篇章 【快讯】SAP联合中国电信,又一外商公有云曲线入华 微软CloudOS云操作系统构建企业级三云合一 IE11支持JavaScript新型API,Web应用国际化更便捷 谷歌推订阅应用Play Newsstand:杂志+RSS阅读器 【信息图】到2020年开发者、设计师、测试员的数量将达到史无前例的高度 推广与盈利专题论坛:中国影响世界,世界定义中国 SlideIdea CEO李建忠:移动产品的技术面思考 BDTC→→百度林仕鼎、腾讯蒋杰、阿里唐洪论道大数据平台与技术 谷歌首席互联网布道师:隐私保护并不是一种正常行为 微软公开“挑衅”谷歌,出售反谷歌标语T恤 四大UX设计原则,打造网站最佳浏览体验 【BDTC讲师】黄晓庆:从小灵通到Hadoop与实时大数据分析 【BDTC讲师】杨强:从禽流感预测到图片语义解释 2013中国大数据技术大会讲师议题正式发布 “2013中国大数据周”即将开幕 正式发布中国大数据现状白皮书 搜狐畅游发布3D游戏引擎Genesis-3D 基于MIT协议开源 传闻微软将收购AOL旗下的Winamp和Shoutcast 【BDTC讲师】大数据时代“掘金机”:百度、360、一淘搜索技术分享 GetCellDigital返回值有误 目录树记忆属性实现的讨论 关于用户自定义类的问题 自制控件问题 静态链接库中的资源 Xml的查询定位问题? 小高求助! 关于JAVA文件执行时出现的错误 如何在Datagrid中取得当前记录的某字段值? 如何取得下拉菜单项? 目录树记忆属性实现的讨论 我想去中国网通申请域名,他们是不是很吊,有没人用过啊 Help 删除一条记录?? 在研究软件加密 “咱们把最好的粮食给城里人吃,又进城帮助他们盖起了高楼大厦,他们为什么还瞧不起我们呢?” 老板今天叫我签合同 有关于TImage的图像显示速度 怎样让 Title 的显示时间延长????????? !!!!!!!!!格式化数据列 怎么这么慢啊 请问:如何在打印之前设定该次打印纸张的大小(很急,老板催货了,帮忙顶一下,谢谢)? 有什么办法可以把class文件反编译回java文件? 如何写到文件? 自己写一个函数,把2,3,4加到1,2,3中去,不重复 Netscape打印中文网页为什么不成功? 英文XP中装了东亚语言包,能显示中文了,如何输入汉字呢。。。。 接到一个电话 哪位大哥大姐教教我啊? Dll如何同控制台程序通信 RedHat Linux7.2下如何挂上RealTek8139网卡驱动????高分相送哦!在线等待!!! TreeView问题 求register_globals = On和register_globals = Off的不同用法(原代码) 斑竹,我是因为升级才散分的,有个穿红裤衩的支持俺了…… 一个新手的加急求救!谁先回答,就先给谁份,希望大家说的详细点! 写xml文件的不完整的问题 关于esqlc的unload 的问题。 关于方法覆盖,在线等候 一个实际开发中经常令人头痛的问题 在线,急,谁有3D MAX的下载地址?高分! 推荐IT公司调查 监测表记录字段变化情况 如何能够得知table中的字段是什么类形?(如字符,数字,浮点等) SUN认证是不是“纯”English的? 在windows 2000下,如何在perl脚本中,执行另外一个perl脚本文件?? JPEG图片压缩 新工程收尾,请提宝贵意见!!! 钱是什么??钱是王八蛋,没了在去赚!!!!!!! 我用Jet把java编译成本地可执行的程序了,可是换一台机子又不可以运行了,说是需要有jet的运行坏环境,那还不如安装JVM呢。求高手教我怎 这个数据窗体怎么做!!? 静态链接库中的资源 计算机拔掉插头后计算机卡住了,强制关机没用,我直接拔的插头,现在按开机键没反应,插头插上会有接通电源的声音.我回家后,电脑恢复正常了,感谢各位亲们的解答! 人体心肌的核呈现什么形状?1.柱状;2.菱状;3.卵圆形 酶对人体有哪些作用 无线路由器平时应该拔掉插头吗?我们晚上睡觉拔掉,白天又插上(每次拔都是拔路由器那边接口,不是墙上插座那),2个月以后发现路由器不怎么好使了,.我不知道是不是我们经常拔插头的原因 人体在什么情况下卵细胞会分裂成两个或三个? 交流发电机旋转的问题.旋转线圈式发电机和旋转磁极式发电机,同样是旋转,为什么后者能发出比前者高得多的电压?如果线圈和磁极都旋转,只是方向不同,这样会不会更有效率呢? 怎么办 精卵刚结合身体有什么症状吗? 旋转电枢式交流发电机来看看这张图是不是有问题 各位初二上物理难吗 把一个磁铁做成球型,它还有没有磁性?如果有,那N-S极怎么确定? 交流发电机是什么让线圈转动的? 要考马哲啦,请知道的同志回答一下:如何理解时间是人的发展的空间?大约200字. 初二的物理难吗.我马上初二了 网络工程师分类多少种? 电表怎么看 红色 请问初二的物理难吗?应该怎样学呢?应该用什么辅导书呢? 语言不丰富用什么词来形容 倒着读和顺着读意思一样的词语,写3个 初二的物理难吗? 什么样的酶对人体血管细胞有好处? 一个词语正着读,倒着读,意思一样,有哪些? 我现在初二了,那又如何去学物理呢?有什么好方法呢? 青年人当如何践行中国梦 正着读和倒着读意思一样的词语比如合适-适合 边长是200米得正方形的面积是()公顷 青年人的梦与中国梦有何关系? 硫酸铜精粉的成分是什么?其中硫酸铜的质量分数.想做实验. 一道化学题目(关于离子)某无色溶液中能最大共存的离子组是A.Na+ H+ Cl- Cu2+ B.OH- K+ SO4 2-C.NO3- Mg2+ Cl- K+ D.Na+ OH- NO3- H+要理由啊, 你的梦,他的梦,青年人的梦,与中国梦有什么关系? 想入手一只水族箱,是森森水族箱好还是佳宝?近日箱入手一只水族箱,但是不知道是森森水族箱好还是佳宝好,或者别的什么牌子!请各位大侠赐教! 创星过滤桶at与cf有什么区别创星过滤桶有不少系列!ef cf at df都有什么区别呢! 郡县和郡县制的区别郡县和郡县制有什么区别 森森302过滤桶 声音大么 这个桶怎么样 火线与大地之间为什么没有电压搞错了,是火线与大地之间有没有有电压 工程师怎么分级 《生命生命》课堂观察记录“教什么” 读新单词时,要不要把中文意思读出来?说说清楚一点为什么 豆在釜中泣中的釜是什么意思,泣是什么意思 两块同型号手机电池,铜片负极对负极分出一根线 正极对正极分出一根 然后焊接USB口 插上数据线可以充电吗已经搞好了现在正在充电,正负极 分出来一根线是USB口,一个是万能改装充电, 有没有什么好的英语学习软件,能先读英文然后读英文单词的中文意思 《七步诗》萁在釜下然,豆在釜中泣. USB里的红 绿 黑 白线接成1个正极和1个负极的该怎么接? 在家庭电路中,因为是并联,所以电压相等,那么根据P=U^2/R,电阻越小…………在家庭电路中,因为是并联,所以电压相等,那么根据P=U^2/R,电阻越小,P越大,P越大,热量就越大,为什么电炉要用电阻小的 “萁在釜下然,豆在釜中泣” 其中“然”是什么意思,“泣”是什么意思;这句话是什么意思?详细 这个usb线哪个是电量正极 哪个是负极 有表扬意思的四字词语 “萁在釜中然,豆在釜中泣”中的“然”和“泣”分别是什么意思? 3D眼镜中,红蓝和红绿有什么区别?买3D眼镜的时候会发现有红蓝 红绿两种,有什么区别吗? 关于设定行政许可,下列说法正确的是a.较大市政府规章可以设定行政许可b.省政府规章设定行政许可最长期限为2年c.国务院部门规章不可以设定行政许可d.省政府规章不可以设定行政许可答案 家用电器长期使插头插在插座上不拔会有什么不好的影响吗?火灾?电器线路损坏? 和红蓝、红绿眼镜有区别吗? 关于规章设定行政许可,下列说法正确的是()A、有规章制定权的机关就有权设定行政许可B、规章可以增设前置性行政许可C、上海市人民政府可以设定临时性行政许可D、国家部委可以设定 电器不拔插头费电吗用电器不工作,插头还插着, 直流电源插头的中心线是正极还是负极? 形容龙的词语,不要四字词语. 家用电器关闭后如果不拔插头,对电器有没有影响,会不会有危险 有哪些词语顺着读和倒着读意思不相同 百科、复制看不懂.焦距是镜头长度的意思、还是镜头到成像孔的距离、还是能把被摄物体放大多少距离的意思?(或者是什么)还有通常我们说的什么120相机 35mm相机又是指什么?是指镜头到 哪种拔罐器好 金正恩参谒牺牲烈士墓地 称心疼得睡不从奥巴马借助大数据成功连任说起美国一位妈妈送13岁儿子手机前“约法人民币升值,钱却为何越来越不值钱埃及审判穆尔西或将引发新的流血冲突俄罗斯:严防“黑寡妇”袭击 确保冬奥俄称斯诺登可去德国协助调查窃听事件泰国沉船事故致一中国人遇难 渡轮超载苏格兰首席部长访华 推动双方经贸合作苏格兰首席部长访华 推动双方经贸合作缅甸穆斯林赴邻国避难遇海难 或死伤惨中国海外移民生存录:从\"卖猪仔\"美澳联手监听亚太 “特等舱”行动曝光印度女婴家传怪病 身体多毛酷似狼孩【深秋也会得热射病 永康男子差点没了命男子驾车时低头捡手机 一抬头开偏车道宁海男子欠前女友20万元不还 法官上曼德拉生平电影首映 前妻称反映其“苦英一医院误诊流产百例泰国沉船事故致一中国人遇难 渡轮超载武林CBD将启动推进11大项目 新增武汉化工区跻身全国20强云集酷玩产品的“亚马逊发明家”来了本报2名记者15名志愿者昨起重走长征阮成发部署我市党风廉政建设宋仲基、黄宗泽都要来了协和医院本周六上午 免费检查甲状腺疾高楼镭射灯晃得对面居民家里像舞厅女会计按“克隆老总”旨意转出85万安全解救顶级水彩画双年展来汉龙摄影“超惠团购” 1999元秒杀洪山区政府党组成员、副区长易文军接受男童8楼坠下奇迹生还觅爱情书 寻找不二选择比尔盖茨基金钟情鄂武商A爱美女士打玻尿酸隆鼻致溃烂流脓蜜时Cake爱的纪念日逼停武汉至大冶北城铁1小时司机在家门口就可轻松换驾照留给朴泰桓的时间不多了!CAS处理案“醉猫”驾车逃进非机动车道被卡住
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘