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

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

欲与Siri、Google Now比高低:微软开始打造个人助理Cortana 【开源专访】禅道创始人王春生:覆盖项目全周期,回归管理的本质 携程无线创业者大赛成功落幕 梁建章为头名“快展”颁20万奖金 Bug报告:小角色,大用处! iOS开发者必备: 五大编程类工具 多核优化软件MCx释放EMC VNX闪存潜能 手把手教学:详解HTML5移动开发框架PhoneJS 快速学习新技术的几条建议 研发周报:Angular.js or Ember.js 谁将成为Web开发的新宠? 10款免费且开源的项目管理工具 Greg Pass:拯救Twitter的无名英雄 Cassandra杀回数据库排行Top 10,及需求Java 7的2.0版本 安全专家王清将揭秘“大数据时代的大安全” BrainSpace:跟传统搜索说再见 艾普网络的OpenStack实践 移动周报:无需编程,分秒钟DIY一个移动网站 抢占先机:豌豆荚发布视频搜索产品 Cloud-Connect大会Day1:OCP与SwiftStack 云智能手机,将会很快威胁到Android和iPhone? 直接拿来用!超实用的Java数组技巧攻略 腾讯云俱乐部上海站:电商如何利用云提高核心竞争力 iOS开发者必备:六大图片、图标处理类工具 腾讯向搜狗注资4.48亿美金持股36.5% 推荐五款流行的JavaScript模板引擎 为何人人都将成为程序员?看32位美国顶尖精英的说法! MySQL再度失势:继维基百科之后,Google也迁移到了MariaDB Werner Vogels:亚马逊热爱艺术的CTO Jolla宣布Sailfish OS兼容Android手机硬件和应用 为什么项目估算偏差如此之大? Cloud Connect大会Day2:开源与云数据中心 CTO俱乐部第110期下午茶:利用麦肯锡7S模型构建管理框架 判断合法的email? 一个关于游标的问题 强烈推荐:rh linux 8.0 投票选举:谁为水源脸皮第一厚之人。 如何在dehpi中调出本地计算机的IP地址? 推荐一本书!!! 直连SQL SERVER2000怎么写代码?SQLCA.DBMS= "MSS microsoft sql server 2000" SDK实例的书有没有买的,请各位前辈推荐几本,谢谢了! 谁知道免费starcraft站网地址 一个程序开始端像dehpi会有一张图片以便缓冲,问这张图片怎么在程序中设制? 论坛全新开张,欢迎捧场 怎么将asf文件转换成avi文件 存储过程的问题? 如何在PictureBox控件中显示数据库中存储的图象 地址栏不见了!!! @@@@@@@@ TreeView 的问题 @@@@@@@@@@@@@@ 请教:哪里可以下载工具栏控件 怎样不用Delphi6的那个qtintf.dll啊? 对多语言问题的总结,集各位CSDN的智慧,让大家共享之 怎样将string类转化为其他类型,例如... 请问在哪里可以下在IIS 5.0 for Windows NT 4.0? 今天我才明白,我不是那么绝情,那个女孩竟然在我的心里留下了一份震撼 如何检测和修正ghost文件? Friecin(雪客)进来拿分(300分奉上,请高手做答关于MDI和DLL的问题) 想做程序员,考研如何选择 AnsiCompareStr和CompareStr? Behard进来拿分(300分奉上,请高手做答关于MDI和DLL的问题) CDatabase类里获取数据库名的函数是哪个啊? 请问RichEdit中如何在代码中修改选中字符的字体和颜色? 安装 WebSphere应用服务器问题 我发现我怀孕了,不知道是谁的!:( 中国电信 为什么我的打印机打印时会出现重影?? 我怎么把他们一一显示出来在listbox里?代码写出来! 请问BOOT扇区中各个数据的意义。。 有没有一次搞定具体时间的控件 tomcat配置简单的问题 问题:十六大代表需不需要办暂住证? 求教COOKIE的用法! JBuilder 7中如何安装一个Server ### 升级内核 ### 还有一个问题(树型列表) 哪里有Visual InetDev 6.0 下载? "分"到哪里去了? 有关于赋值的问题 技术的挑战,在线等待 有关csdn的一个小的问题? 显示模式的设置 怎么样删除在DATAGRID中选定的行? 如何自动滚动edit控件多行显示时的文字 win2000系统关闭后但不会自动断电源 The word have't the perfect person.what do you think about it? have just bought a car和 bought a car a short time ago I bought a new bike just nom.(用just改写)I ____just_____a new bike. Who do you think is the right person for the english monitor of your class Gina or Ann?Write down yhe reasons.翻译 I have just bought a house in the country请高手翻译整句话.词组写下来啊 i bought a new bike just now用just改写 i( )justi bought a new bike just now用just改写i( )just ( )…… 中翻译英We made love have been too comfortable, He is like his father__ __ __ (在He is like his father__ __ __ (在许多方面) 写一篇作文,题目是40年后的...可以是40年后的我,40年后的城市... l also learned that one can only go three days without water.怎样翻译成中文? 某同学在做“验证凸透镜成像规律”试验时,光屏上有教室窗子的像.这像是如何形成的? 分析1978年后中国城市化进程加快的主要因素 英语翻译另外请问,“我永远不会令你们失望的”翻译为"I will never make you disappointed"对吗? 整理器材时,光屏上有教室窗户的像,这像是怎样形成的 1978年后的中国大事年表 求翻译Levos./Only Lou,that can for these we will stay in the hotel for two days 保持原句意思不变 i think that's everything翻译 英语翻译感动!史上最强的父亲今天看完这个视频,我都哭死了,太感人了!歌曲配的特别好,是美国的mercy me 唱的〔I Can Only Imagine〕我现在想知道这个歌曲的中文翻译歌词, 同义句转换:what kind of language is that? --------- ----------- ---------- --------- is that?同义句转换:what kind of language is that? --------- ----------- ---------- --------- is that? 英语翻译That man knows the future Nasreddin was cutting a branch of a tree in his garden.While he was sawing,another man passed in the street.He stopped and said,'Excuse me,but if you continue to saw that branch like that,you will fall down with 房屋的建造,意味着人们实现了定居生活.定居生活给远古居民的生活带来了什么变化? We will stay __the end if next weekA.untilB.onC.inD.at 乡村演变为一般城市的条件是地形( )、水源( )、交通( ) 用唯物史观知识分析,为什么说我国经济体制改革是社会主义制度的自我完善 what kind of name is that 翻译? what do you usually have for breakfast答语形式what do you usually have for breakfast?I usually have.问一下答语have后面怎么接名词?单复数形式是怎样的?还有答语用接chicken with vegetables 为什么蔬菜要加S? This is the only way I can think of _____(solve) the problem.Whose is the car ______(park) at the school gate?The is the best novel of its kind ______(ever write).If you are ______(succeed) ,you must persevere.The bell indicating the end of the class ——the hotel___we will stay in is right on the beach ——really?It's perfectA.what B.that C which D.who 英语翻译某仪器is used to continuously measure the concentration of a and b artificial radioactive aerosols,in presence of natural radioactivity due to Radon,Thoron and g background noise.这句话应该怎么翻?主要是in presence of我不 This is the way in which they solve the problem.这里的in which可否换where?they solve the problem in the way是从句,主谓宾都有了,那就是缺副词了,定语从句里,关系副词只有where,when ,why,而且where = in which,那里这里 We will stay at the best hotels .中“hotel"为什么要用复数?最好的.不是只有一个?但又好像the后要加复数的... What do you usually have for___breakfast,Peter?A fried egg,three pieces of bread and a glass of milk.A a B x C the 英语翻译是不是have prove 这 有错误? Hi,next week I will come to Malaysia Kuala Lumpur for four days,I will stay at one world hotel.Could u please give me some advice that park shopping where I should have a look...thanks. 英语翻译重点:past a certain point 英译汉we may have proved great adventurers,we may have proved great adventurers,but we have done te greatest march ever made in the past ten years.应该是we may not have proved …… What Kind of a dream was that? what do you usually have for breakfast The sign on the wall means we should ______(smoking)here.适当形式填空.用no smoking还是not smoke?老师说notsmoke,没讲原因,说一下原因.不能用标志名:No smoking,应为有should(应该). 请问:在现代汉语中,“谓语”和“动语”的定义分别是什么?从语言学的角度! Could you please bring me the books?两种回答怎么答? the sign on the wall means "No----".We shouldn't ----here.a.smoking,smoke b.smoke,smokeing c.smo 楚人贻笑与现代汉语不同的解释是哪句 What do you usually have for breakfast.外语 No smoking means we mustn't smoke here为何是NO smoking 不能是Not smoke ,No smoking,Not smoking 现代汉语中音素和音位的区别?麻烦举例说明下,如题! 请帮我翻译英语,我只希望你对我好一些,多在乎我一些 the sign means “no smoking”对no smoking提问 He _____ soccer _____ his father.A.likes; likes B.likes; like C.like; looks like D.likes; look Books bring us the presence of mind that ever lived that ever presence 英语翻译风景如画的乡村将有助于你忘记所有的烦恼 The boy () his father very much.A.look like B.looks like C,is likes D.is likeing Books bring us into the presence of the greatest minds这句话怎么翻译好?请帮忙翻译一下这个句子 小六英语( ).Did you have milk and bread ____ breakfast?A.of B.for C.to D.about ____ the boy ____ his father or his mother A.Does,likes. B.Is ,look like C.Does,likes. D.Is like. 英语翻译能不能再帮我翻译一句。“我想知道你为什么不愿意和我在一起,请你用最直接的语言告诉我,因为我希望下次再碰见你这样的女孩我能够把握住” which person or event do you think had the greatest influence on shaping British culture? I have just bought a _____pencil box.A.cheap blue plastic B.cheap cheap blue C.plastic blue cheap D.blue cheap cheap当名词前有多个名词时,应该怎样排序? I have just bought a new bike.这句话是对的,可是买是不可延续的啊,
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘