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

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中的结束任务功能。它不仅能关闭程序实例本身,而且还能释放程序所占用的资源,能够达到将程序彻底清除出系统的目的。

Windows 8之父Steven Sinofsky:2014年科技界的十大趋势 电视盒子还没智能化?看Fan TV们怎么玩 畅游启动“必赢计划” 十亿巨资代理优质产品 数据控使用Hadoop的三种最常用方式 值得创始人学习的五大企业文化管理方式 圣诞节快乐:来自程序员们的问候 宏碁任命新CEO Jason Chen:曾任职英特尔14年、台积电8年 史上第一次越狱发布会与Evad3rs太极助手罗生门 新东方在线CTO曾明:已用Cocos2d-html5开发出150余款产品 Facebook 2013年的9个开源项目 开源力量公开课2013年度庆典:我们的开源项目 看雪学院“走进企业看安全”活动走进安全管家 视频+PPT:苹果iOS7 Tech Talks大会演讲内容 iPhone 6和Galaxy S5暂不会采用弯曲屏技术 当程序不工作时,开发者常用的借口 携程技术副总裁叶亚明:三次重大技术改进的故事及背后原因 Google抛弃C语言,采用Go语言重写Go编译器 jQuery Mobile 1.4.0正式版发布,着重性能改进 IBM收购Aspera加速大数据传输 各式各样的极品程序员,你属于哪一种 Google员工离职前必做的14件事情 GitHub上最火的开源项目及编程语言是什么? 2014的12个大数据趋势:Hadoop继续升温,R将进入主流 研究称三星手机可能存在安全漏洞 初创IT公司里开发者最容易犯的九种错误 还有多少开发者在为IE6做兼容性测试? 解读华三“新IT易之道”理念下的云计算和数据中心 回顾苹果2013:硬件几乎无突破 热衷收购 敏捷开发流程管理须参考的3个要素 微软潘正磊谈DevOps、Visual Studio 2013新功能、.NET未来 Jail Breaking之后,iOS 7的指纹识别还hold住么? 如何建立一个这样的数据窗口? 上次未解决的问题(附源程序,及时结贴)(输入地址时http://ip/default.asp能正常使用,但是用http://ip则只能显示首页) 这个分页查询的SQL语句有什么问题?高分求教!!! 怎样求一个集合的子集? 我应该怎么做(项目经理请进,至少代表全国大部分公司的问题),一个年轻软件开发人员的问题 zzzzzzzzzzzzzzzzzzzz 高手指点迷津,如何更新数据库里的image字段 算法问题,再请教各位高手! 急急急,有关classpath 急!如何把picturebox中的内容保存成图片呢! Web Service中怎样验证身份? Web Service性能测试,欢迎评论,来者有分! 散分! 数据类型转换 ColdFusion的语言 - CFML win2003安装后,每个一秒种读一次盘是否正常 各位高手,最近在使用MASK PRO插件时碰到一个问题 x86汇编新手 星期六了,我还在工作....大家来帮忙看看。....很简单的问题 怎样在注册表里删除OFFICE 数据库不同,sql语句也有限制吗? 我在使用化境上传组件时碰到的问题,希望大家帮着看看,解决一下,高分求助 listview中的item能否变灰,也就是使某些项不能选 高分求各位高手急求!!!MP3问题 我的2k(PRO)我的电脑打不开,控制面版也打不开,其余的一切正常。这是为什么? 配置问题 关于上网,上传,二个大问题,高手请进,急! 一个打包问题 如何在asp里实现点一个按钮带动另一个软件的运行?急! 散分! 怎样将http下做好的网站,全盘转为https的.我准备买密匙的.想先测试一下. 如果判断当前时间是在某一时间段内? TX DATA SOURCES 數據源問題? 数据得导入和导出 给个好办法 反驳!“一位女生对男生追心仪女孩的建议”zz 请高手指点出我的小程序错误,谢谢! 菜鸟问题,这个combobox为什么不响应onchange事件?高手看看啊 高分求助 (100分) :求学生的平均分,并且排序输出成绩册!!!! 急!请问如何使用java语言获取mysql数据库的相关信息 编译4次便能成功! 下载UNIX 散分! Jsp函数中如何使用JavaScript中定义的函数? 无题! OnKeyPress和OnkeyDown有什么不同? void Page_Load(Object Sender, EventArgs e)语句,是定义一个方法函数,那括号中的Object Sender, EventArgs e可变吗? 有没有开发linux下防火墙的?怎么使用netfilter? 如何取参数呀? EVC中如何使用CHtmlView类,制作网页方面的程序呀! 操,还有这样倒分的,版主管不管?这样的人还要不要脸? 银离子的配位数为什么是2,银不是最外层的电子数为1么,失去电子后空出一个5S电子层,不是只能供给一对孤对电子么.就比如【Ag(NH3)2】+ 为什么银空出的5s电子层可以给两个NH3分子的两对孤 气体激光器用二氧化碳行么?怎么用? 人类的祖先是怎样预防野兽的袭击的急 急 急 急 急 急 急 急 急 急 有没有具体的描写,证据之类的!希望给出一些具体事例,证据,不要只说一下用什么东西预防, 请问C中穿过线圈的磁感线为什么能相互抵消,如何相互抵消的.必采纳,谢谢 孔子曰:独学而无友,则孤陋而寡闻.这句话蕴含什么道理? 野兽与人类的分别在于什么呢? 地球的地心引力存在与金星吗? 影子是什么颜色的? 如何吃q10辅酶 铅锑合金的性能? magic melody中文意思 那些食物含有Q10辅酶? 梭伦改革中,按财产多寡划分社会等级,此举打击最大的是( )、梭伦改革中,按财产多寡划分社会等级,此举打击最大的是( )A.奴隶主阶级 B.氏族贵族 C.雅典公民 D.雅典外邦人为何不是A? H[PtCl3(NH3)] 中心离子是( ),配体是( ),配位数是( ).如果可以的话 请高手们能讲解下 给点参考资料也可以 国庆烟花汇演观后感5、600字就好 英语翻译要求:按词(或词组)翻译词义,并说明该词(或词组)在短语中的词性和语法成分. 通电延时与断电延时有什么区别?顺便看一下这个题:时间继电器的四种延时触点是如何动作的? 观烟花有感(600字左右,符合初中水平,要符合实际) 材料一梭伦改革中这项重要措施的划分等级的标准是什么 独学而无友,则孤陋而寡闻 2009国庆礼花观后感 英语翻译秦氏嘉庆本注:不可善,谓钩箝之辞所不能动,如此者必先命征召之.重累者,谓其人既至,然后状其材术所有,知其所能,人或因此从化也.房立中本译:对于那些以钩钳之术仍没法控制的 什么是超越国家权力的机构.举例欧盟和亚太经济合作组织. 《亡命鸡礼花》有感写写中心思想,传达了什么,从中领悟到了什么,等等200字左右,自己写,文字哲理一点,优美一点, 英语中“烟灰缸”有没有什么引申或比喻的意思? 如何利用激光器采暖如何利用100瓦的灯泡制造激光器?如何使电灯泡的杂色光变成单色光 生姜皮能吃吗?婆婆每次做菜放生姜时都要把生姜皮去掉,她说那个有毒,吃了不好,请问生姜皮真的有毒吗?能不能吃啊? 他喜欢抽烟,想要在生日时收到烟灰缸.(英语) 决定核糖体和内质网联系的是什么?书上说是蛋白质氨基酸末端序列,为什么 吃姜要刮皮吗? 幼讷于言,不补充. 独学而无友,则孤陋而寡闻,这句话怎么怎么解释呀!同题! 大雁和雁鹅有什么区别呢? 幼讷于言,人未之奇.的意思 为什么“独学而无友,则孤陋而寡闻.” 雁鹅有什么特征 幼讷于言,人未之奇的意思 独学而无友,则孤陋而寡闻的启示 实行生产资料公有制就等于实行了社会主义了吗 “幼讷于言,人未之奇”是什么意思?_ 国庆六十周年阅兵式礼炮意味着什么为什么六十响 生产资料公有制是社会主义的本质本质吗?为什么? 蔬菜类如何抽样,根据什么抽样的.各种蔬菜如何判定质量的好坏,什么可接收,什么不能接收 国庆60周年阅兵式礼炮到底鸣了多少下 全身黄,比鹅大,飞行像大雁是什么鸟大概在十几年前的成都金堂的冬天出现过,谁能告诉我这是什么鸟真的是一种鸟,最好最好有图片 MELODY的中文意思 国庆阅兵式 先升国旗还是现放礼炮 大雁与鹅的区别? 物质____决定物质的_____,物质_____也决定物质的用途. 独学而无友,则孤陋而寡闻.在作文中的运用(急!)这句话怎么在作文中运用、还有、这句话的深层寓意是什么、主要是怎么在作文中运用、、请专家解释~急啊、、最好今天可以解决、! 亚磷酸二甲酯能用强碱分解吗?碱解后的产物是什么?请问强碱分解的具体条件是什么?产物是磷酸还是亚磷酸? 物质的用途由什么来决定? H2CO3不完全分解时,化学方程式是什么还有C+CO2生成什么 雁鹅是鹅吗? 人的体内为什么会有静电?拜托了各位 谢谢人体怎么会有静电,这是怎么回事? MOS管D极与S极之间的二极管有什么作用? 在同样水中加入一小勺盐和糖,再放入冰箱内不久,再拿出来,什么更容易溶于水? 根据电流磁效应我们发明了什么?奥斯特实验! 希腊梭伦改革后,公民是指什么,平民是指哪些 人类祖先怎样躲避野兽攻击?科学课要求,回答好的我加给他20分o()^))o唉 外媒称俄罗斯在G20峰会监控各国元首杭州到广西快速铁路明年底打通 6.5北京推出2万套自住型商品房 杭州暂时国务院批复绍兴撤销绍兴县设柯桥区 撤社会责任、职业良心千金难换奥巴马极力摆脱“监听门” 美国国安局叙利亚公布41处化武设施糖库失火“糖浆瀑布”堵门纽约手机可接收紧急警报40名非洲移民渴死沙漠纽约华裔灭门案震惊社区 凶犯偷渡来美奥巴马考虑停止窃听盟国领导人利武装人员劫走5000万美元美国会将彻查全部监视项目朝鲜搭建新导弹发射平台叙利亚公布41处化武设施埃及再次审理穆兄会领导人波兰曝光美国驻华沙使馆内的窃听设备(以色列释放第二批26名巴勒斯坦囚犯美国承诺停止监听盟国泰前总理阿披实面临谋杀指控高颜值好身材 简单操作更显智能_有规朵朵S一机两用 远程操控尽显智能_有各部件全面配合 专为清洁而生_有规划Smart Move创新技术 让清洁极限挑战 智能清洁不仅是说说而已_有科技控的大玩具:全面体检_拒绝千篇一为何它这么强?拆解揭晓答案_拒绝千篇说起来你可能不信 是手机先动的手_拒依然不可或缺!聊一聊网线的发展历程想看大片也很难 无屏电视有何内容之殇内容建设的几个问题_想看大片也很难 上海迪士尼开园首日上演梦幻灯光烟花秀西城区教委今天拆除实验二小白云路分校北京西城区教委今天拆除实验二小白云路小微投大气派 年轻人搭设娱乐中心买啥热门专业变“冷门” 高考专业该如何选太原至焦作高铁开工 5年后郑州至太原小帅UFO未来版低价促销_小微投大气神画Y1J高清大屏影院优惠_小微投大明基智能短焦投影机超值_小微投大气派极米1080P高亮LED投影促_小微
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘