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

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

VB软件设计中的几个问题 VB新手常见问题解答 VB修改注册表一特例 VB与VC混合编程中处理消息的方法 VB中的进制转换是怎样的? VB中调用带参数存储过程的实现(数据库) VB中感叹号“!”与圆点“.”的用法差异 VB中如何实现注册表的读写 VB中实现“擦视”技术 Visual Basic 2000年问题 Visual Basic 的未来 Visual Basic 命令分类表 Visual Basic三级跳 Visual Basic使用技巧 Visual Basic中的子类处理技术 Visual Basic中软件封面技术探秘 VisualBasic 软件设计中的几个问题 Windows 95/NT 运行了多长时间 -VB资料 Windows 的登录资料库 -VB资料 把回车键变成TAB键-VB资料 把文件置入到Text或RichText中 -VB资料 避免按 [ENTER] 回车键产生的“嘀”声 -VB资料 避免使用全局变量-VB资料 避免装载多份应用程序-VB资料 不定个数的参数 -VB资料 不在任务栏中显示,只能在Ctrl+Alt+Del对话框中显示或者干脆什么也不显示数 -VB资料 处理 Dropdown List型 Combo的录入问题-VB资料 VB创建和删除快捷方式 从程序中生成 exe 文件 -VB资料 打开和关闭CD-ROM 驱动器 -VB资料 打开和关闭其他应用 -VB资料 请问怎样获得默认打印机名! 哪位大虾能给小弟一点有关汉诺塔问题的资料呀?! ShellExecute(this.Handle,null,"c:\\",null,null,1)问题再探 PB6.5如何实现选择文件路径对话匡?急!在线等待。 为什么下面的enum定义要有一个方括号? dot menu是什么意思? 请教大侠为什么(333)这句不执行 如何将olecontainer载入的word文件全部显示,而不只显示第一页? 简单问题! 高手帮忙!如何通过服务器来自动查找、替换客户端文件 为何timer控件失效? @这个字符在C#中有何具体意义?不解 如何将sql server的检查约束延迟到Commit时 ado连接sql库问题 为何无法ping自己的地址呢? 滚动条判断 单个窗口程序可以运行,但是几个窗体连在一起就不可以了,好像是多线程的问题,请教各位 关于DBgrid再次求救 今天我好失败——斑竹过两天删除吧,让我宣泄一下 哎呀!!各位何必拉帮结派呢!!!这样不好啦!!影响水园大团结啊~~~没有加入帮派的人就很难在水园呆下去啦。。猪猪。。只有和他们沦为 CreateBitmap 与 CreateCompatibleBitmap 弹出一个窗体但是又不抢占其他窗体得焦点,怎么办? 利用DW-MX制作ASP.NET程序教程! vc中 调用 VB dll 时参数类型如何确定? 谢谢! 如何才能得知当前路径?比如VB的App.Path? Conn.OpenSchema怎么得到字段的信息? 一个进程写在共享内存中的数据被另一个进程读出去后的问题 大家开心开心吧! 笑过后体会体会...... asp与数据库连接的问题?急,急!(在线等待) 大家是怎么查VCL类库的类及函数的? 在线程里有无限循环时,好象不跳出循环就无法终止线程,是吗 UNIX的线程有没有类似Windows线程的消息队列和消息机制? 哪位大虾知道如何在网页中快速刷新显示后台计算的数据? 请问有谁知道PrinterResolution怎么和打印机对象连在一起呀, 偶有一个惊人的发现! 对话框中的按钮我怎么让它继承我自己的类? 请问有谁知道PrinterResolution怎么和打印机对象连在一起呀, 装了腾讯的浏览器现在删了 可是用cterm点击里面的网址还会调用腾讯的浏览器 如何修改注册表 那个键值? 电子邮件的问题 怎样给为我解答问题的注册用户打分? 谁做过这样的新闻系统! 为什么RealPlayer放有些网站的流媒体文件时会出错? 请问什么地方有软件开发标准。如国标,国军标等。 如何取得读网页时ie的状态,如正在下载,完毕等等? 朋友们能不能提供我一些关于VC读取文件操作的资料? 关于数据库服务器和备份的问题 win2kPRO 简单问题,高分相送!!在线发分,第一个答对者,定送此分!!!!!! c程序总出现"out of memory..." bzszp(蝎子)和ATCG(ATCG),谢谢!请问可以给我你们的E-mail吗?我以后还有些问题想请教你们! 如何设置java环境 磁体内部磁场方向为什麽是从S到N?看了很多解答,都是说磁感线是闭合线,但是我还是不明白,磁体内部的磁感线不是一条直线吗?(另:刚接触电与磁这部分,希望能讲得浅显易懂些.)还有就是 按水对生命的作用可将水分为哪两种按水对生命的作用:可以分为——内的水和——外的水 在月球表面能听见月球车开动的声音吗?到底能不能? 为什么磁体内部磁场方向是从南到北? 什么是超导磁石个人做超导磁石的话需要什么条件,一块超导磁石的造价高么,超导磁石在什么情况下可以让东西悬浮起来? 为什么雪会融化? 记承天寺夜游的翻译 下图一格代表1cm的平方,在方格图中画一个面积为24平方厘米的梯形. 雪为什么会融化 一个标明220V,25W的白炽灯,如果把它接在110V的电源上,它消耗的功率是多少?(假定白炽灯的电阻是线性的) 生命与水第8自然段的作用是什么 关于烤箱的温度和烤箱温度计的温度烤箱温度调控,我始终找不到合适的方式控制,我买的温度计和烤箱的温度显示有些差异,比如我要用190度的温度,我要把烤箱调到215度左右才能到达预 220v 60w的白炽灯在110v的电源上能正常工作 哪里有卖超导磁铁的? 烤箱温度计怎么使用我用的是ACA M-16A的烤箱,看到网上普遍说这个烤箱温度偏高,于是今天买了个温度计准备拿来测测.把温度计放在烤箱里,说是测温需要空转烤箱,再有我也只是想测试一下所 月球上听声音如果两个宇航员在月球上,一个宇航员对着地表说一句话,在他旁边的另一个宇航员将耳朵贴着地,能听见他说的话吗? 什么是导向超导磁铁? 浓硫酸为什么只能干燥中性气体和酸性气体,而不能干燥碱性气体?什么是中性气体?什么是碱性气体?什么是酸性气体?怎样判别?请会的人教教我吧, 某白炽灯上标着“220V 40W”,若所它接入110V的电源的两端, 1.实际消耗的功率是 2.此时该灯的额定功率是 这图形的面积是?(每个正方形方格边长1cm) HCl气体是酸性还是碱性或中性?气体! 在月球上为什么听不见声音呀? 生物圈=什么+什么 ? 生态系统=什么+什么=(什么+什么+什么)+什么 初一生物问题求各位大神解答! HCl 气体显酸性吗? 沁园春 雪中作者抒发什么样的思想感情和什么抱负? 初一生物题(生物圈)蚯蚓一般营穴生活,但夏季雨后蚯蚓在地面上活动,原因是()A.土壤中蚯蚓缺乏食物B.蚯蚓得不到足够的氧气C.喜欢雨后晒太阳D.承受不了土壤的压力在鱼苗长途运输的前 雪融化之后阅读答案雪融化之后是什么呢?  是不堪的泥泞?湫隘破败的小巷里,歪歪斜斜地印着行人的脚印,或深或浅的印子里溢满了泥水,几只调皮的小黄鸭嘎嘎地走过时,身上开满了一朵朵 望洞庭所表达的思想感情是什么?<望洞庭>刘禹埸 这首诗所表达了什么思想感情? 生物圈中最大的生态系统是什么?A 草原生态系统 B 城市生态系统 C 森林生态系统 D 海洋生态系统 即:生态系统的组成成分中,生物与环境缺一不可.将“草→鼠→猫头鹰”看作是一个生态系统,还应该添补的成分是() 在物理电学中K(库仑)是什么的单位,和其相关的单位的换算关系是什么? 生物部分和非生物部分组成的是生态系统还是生物圈?如果给你一个食物链的图,问你还需要什么才能组成一个完整的生物圈?或者需要什么才能组成一个完整的生态系统? 雪为什么先融化下面的?最好说明用到的理论. 库仑对现代物理学的影响急用! 初一生物生物圈中的动物试题急求.初一生物济南版的初一生物上册的 别给我初二的谢谢 快的我在加50分 如果只提供刻度尺、三角尺,如何测出一个装有大半瓶的墨水瓶的容积?如果只提供刻度尺、三角尺,如何测出一个装有大半瓶的圆柱形墨水瓶的容积? 物理小问题,库仑的.9.在光滑且绝缘的水平面上,有两个金属小球A、B,它们用一绝缘的轻弹簧相连,如图所示在A、B带有等量同种电荷后,弹簧伸长x1时小球平衡如果小球A、B带电荷量加倍,它们重 库仑(C)是什么单位,其意义是什么? 雪融化了是什么? 有关库仑我这几天在做外省市的题,碰到这样的一道题:10秒内通过某导体横截面的电量为6库,电流做功36焦,通过导体的电流为( )安,导体两端的电压为( )伏.当通过该导体的电流为0.5安时, 关于水对生命体及经济发展有什么影响 现有一个墨水瓶,一个瓶盖,一把刻度尺和一些水,试粗略测出墨水瓶容积 超导体上能悬浮磁铁是怎么回事 你能画出几个面积是12平方厘米且边长是整厘米的长方形 现有一个墨水瓶、一个瓶盖、一把刻度尺和一些水,试粗略测出墨水瓶的容积 超导体隔磁吗有两块钕铁錋磁铁,同极相对,在两磁铁中间放一超导体,会不会使磁铁不排斥,不是说超导体完全抗磁吗 生态系统中各种生物的 和 相对稳定,原因是生态系统具有一定的 能力,但这种调节能 现在一个墨水瓶,一个瓶盖,一把刻度尺和一些水,试粗测出墨水瓶的容积大神们帮帮忙 记承天寺夜游中“解”的翻译 太阳能上不去水下不来水是什么原因 物理总是考不好,好苦恼啊 5555~5555~非晶体没有固定的熔点,那么它有没有熔点,写仔细一点,我不聪明哦! 记承天寺夜游 的解词 太阳能打不上去水是什么原因? 库仑是如何定义的? 记承天寺夜游翻译700字 高中生物中生态系统定义 等物质的量的CH4与Cl2恰好反应时,生成CH3Cl与HCl为什么错 磁体内部有没有磁场我说的是实心的哈 U=W/Q,Q单位是库仑C,那库仑用基本单位咋表示呢? 在月球表面,航天员能清楚的听道月球车开动的声音麽?快
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘