TApplication类的简要说明

韩冰

. c4 ^. H& ~) ?+ ITApplicaton封装了标准API WndProc过程.每次创建工程时，C++Builder都会自动创建一

8 l9 a# `: ]9 s) X

个名为Application的TApplication类对象.在Project Options的Applcation页中，我们

可以设置这个Application的Title(标题)和Icon(图标).也可以在工程源文件中编辑App

6 m, Q2 m+ Z7 r$ `6 B

lcation的代码.

Application对象不是需要经常使用.下面是TApplcation比较常用的方法和属性/事件等

3 E, A5 ]7 Y9 c ]. V+ [# M

。

一>属性:

+ U9 b; j- C) ~* M( g" ~. u

1.bool Active:

7 L8 E$ x$ H6 ^; A$ a1 ^2 u1 x

这个属性是一个运行时才有效的只读属性.当应用程序处于激活状态且有焦点时它返回t

' f; s" p0 J& ~% r7 Z7 L1 I

rue,否则为false

2 C- K# w* N- K. d* G7 r

2.AnsiString ExeName:

这是一个常用的属性.它返回应用程序的全路径执行文件名.运行时有效,只读.

2 {6 f/ J! w/ ?2 a: d' ]

Label1->Caption=ExtractFileName(Applcation->ExeName);//取得执行文件全文件名中

B5 r# C" S$ F8 i; W; {

的文件名部分

7 S: [4 T- {% \- N; w

3.HWND Handle:

4 y ]" z9 g0 z6 f

取得应用程序的窗口句柄.调用API时可能需要.这个句柄是不可见的应用程序的窗口句柄

,而不是主窗口的句柄.要取得主窗口句柄,可以用Application->MainForm->Handle.

9 G( h* @' K- A& g; ]9 d

4.TColor HintColor:

确定工具提示窗口的颜色.运行时有效

! a3 y- a: A! U E6 R1 W

5.int HintHidePause:

+ k; {9 |; K6 Y0 p1 }7 j) ?8 j2 q

确定显示工具提示后的工具提示显示持续时间,缺省值为2.5s.

6.int HintPause:

确定工具提示显示之前需要的停顿时间.也就是工具出现所需要的等待时间.缺省值为80

0ms

3 m" }1 @' Q2 J( T" }2 Z8 T7 B4 b4 @

7.int HintShortPause:

确定工具提示再次显示之前所需要的等待时间.缺省值为50ms

8.TIcon Icon:

: e' k/ ?' C; o

应用程序的图标.此Icon出现在应用程序的任务栏窗口按钮上.并作为在文件浏览器中应

3 j+ j2 |- v( y( s3 x

用程序的图标.一般在Project options中的Applition标签中设定.当然也可以用代码:

l6 q. \, D& C# S5 \

Application->Icon->LoadFromFile("e:\\icon\\cb3.ico");

9.TForm MainForm:

应用程序的主窗体.这是一个只读的属性.主窗体就是应用程序最先创建的窗体.可以在P

' k; D* C4 b( G& O0 b

roject Options的Forms页中设定.当主窗体被关闭时,应用程序将结束.

10.AnsiString Hint:

2 G: F- Z3 O1 @0 K& K

应用程序的Hint（工具提示）

4 H% T/ z W: Q" G1 \4 R

11.bool ShowHint：

$ b. R7 K4 d2 d' P/ T

是否显示提示

5 u( q/ e1 _: `/ g) Y9 G

12.AnsiString Title:

, x) l! [; P H# u4 d4 b9 U

应用程序的标题,它显示在应用程序在任务栏按钮中

13.bool ShowMainForm;

是否显示主窗口，缺省为true.当我们想建立一个不显示主窗口的应用程序时，在工程源

文件中的Application->Run()之前设定这个属性为false即可.

! F/ z) N |3 p

14.bool Terminated;

检查应用程序是否已收到关闭消息.如果为true,表示应用程序即将关闭.

二>方法:

0 _0 e I0 l8 H4 m, W/ H: O p! t

1.void BringToFront():

! |& g6 j, B) B( }3 X. o

将应用程序置于激活状态并且拥有焦点.它将使用应用程序的窗口置于其它应用程序的窗

口之前.

Applcation->BringToFront();

3 b) L, i) I' r- M6 w' f# x

2.int MessageBox(char *text,char *caption,int flag);

o" r7 S/ y6 d9 `4 \% }) X

这是最常用的方法了.显示一条消息的对话框,可以有一个或多个按钮.它封装了API中的

MessageBox函数.

text:消息字符串,可以是多行,多行可以用"\n"隔开.如"你好!\n欢迎使用本程序."

caption:对话框标题

6 Y/ f& }2 c* h% [* u7 \

flag:决定此对话框形式.常用的如下(位组合,用|)

按钮,决定对话窗口的基本用途

MB_OK:显示一个OK按钮

MB_YESN显示二个按钮:Yes或No

MB_YESNOCANCEL:显示三个按钮,YES/No/Cancel

4 k w* n& x" L y

MB_ABORTRETRYIGNORE:显示三按钮:Abort(中止)/Retry(再试)/Ignore(忽略)

5 d8 R& C% k( D* `

MB_HELP:显示帮助按钮,当按F1或点按钮时触发Help事件

缺省按钮:

& ^7 r1 V" h. R+ ?

MB_DEFBUTTON1/MB_DEFBUTTON2/MB_DEFBUTTON3/MB_DEFBUTTON4:决定哪一个按钮为缺省

按钮.缺省为MB_DEFBUTTON1

1 q; G. i r. m9 g

图标:

; [0 D+ [# W5 H: Y

MB_ICONSTOP:显示一个红色X图标

" @! ?9 J3 J+ S" y' d- a, }

MB_ICONINFORMATION:最常用的提示图标，一个小写的i

MB_ICONQUESTION:当MB_YESNO使用时这是最常的图标，显示一个问号图标

) t$ @" e+ o8 w7 ?! _" Y

返回值:

$ l o, i, c# g8 ]0 ?

IDABORT/IDCANCEL/IDIGNORE/IDNO/IDOK/IDRETRY/IDYES:表示用户按了哪个按钮返回.

! _' w6 E* Y% H5 S% |; w; L1 P

if(Appliation->MessageBox("你是否真的退出本程序?","关闭程序",MB_YESNO|MB_ICO

* W' ]: k! h$ S J

NQUESTION)==IDYES)

0 e$ Y* W# A0 I3 K5 C2 ~2 ]. G6 \

{

Close();

}

3 T% q. H: \1 E9 {* o

3.void Minimize()

9 q+ d8 N1 R) N" {

最小化应用程序的每个窗口和当前显示的窗口

1 o1 o" A- A% r9 c

4.void Restore()

' V2 A4 e$ u O+ i: B

还原一个最小化的应用程序

5.void Terminate()

自动调用API函数PostQuitMessage发送一个WM_QUIT消息以关闭应用程序

' e; i0 b2 _0 ` l+ |- ]

6.void ProcessMessages(void)

常用方法，在长时间循环中调用它以让应用程序及时处理消息.它可以立即处理消息队列

MB_ICONQUESTION:当MB_YESNO使用时这是最常的图标，显示一个问号图标

& h0 U5 {* [+ X' M! Q

返回值:

按钮.缺省为MB_DEFBUTTON1

- Y# \3 Y9 N( v m r* f, {7 y

图标:

9 t5 y6 P7 [5 R$ o

MB_ICONSTOP:显示一个红色X图标

9 c# S, q3 f! E/ ?, y" c7 X

MB_ICONINFORMATION:最常用的提示图标，一个小写的i

MB_ICONQUESTION:当MB_YESNO使用时这是最常的图标，显示一个问号图标

' @0 z: K4 t- J m* L0 F6 L

返回值:

, I5 D6 }& R' R4 f

IDABORT/IDCANCEL/IDIGNORE/IDNO/IDOK/IDRETRY/IDYES:表示用户按了哪个按钮返回.

if(Appliation->MessageBox("你是否真的退出本程序?","关闭程序",MB_YESNO|MB_ICO

NQUESTION)==IDYES)

- k- _0 A; Y, U- B9 X& H8 f7 u( x6 C

{

Close();

* Y( c+ O* ^, E) P' _6 b

}

7 \+ u- h8 Z6 H1 k7 |

3.void Minimize()

最小化应用程序的每个窗口和当前显示的窗口

4.void Restore()

还原一个最小化的应用程序

5.void Terminate()

" G1 O7 S- m: @& @* i' T

自动调用API函数PostQuitMessage发送一个WM_QUIT消息以关闭应用程序

- e5 Z/ r2 W6 D, X

6.void ProcessMessages(void)

8 h0 F# _2 f& ?2 j; h+ \8 R% }

常用方法，在长时间循环中调用它以让应用程序及时处理消息.它可以立即处理消息队列

中的消息

三>事件:

1.OnHint

当应用程序的提示要显示时的事件.我们也可以将它指向自定义的函数中作特殊的工具提

示显示

3 V( \/ o w0 ]* s! S4 O" i

例:

7 a5 b H% u, ?" D- M

void __fastcall TForm1::FormCreate(TObject *Sender)

' t$ P( k8 i9 i1 W8 \

{

Application->OnHint = DisplayHint;

}

7 N' U3 ^! J" q" r, H+ z

void __fastcall TForm1:isplayHint(TObject *Sender)

- n2 w5 @5 p- {# Z

{

: p- g* U: Y" X8 n* L* z T

StatusBar1->SimpleText = GetLongHint(Application->Hint);

}

g, S) r7 b& d# C8 i2 e& o& z

//一个Hint可以包含由|字符分隔的二部分.GetShortHint是另外一个函数

2.OnIdle:

当应用程序空闲时的事件.通常在这时候作一些不重要的状态检测或处理要求不是很严格

的任务.

3.OnException:

, t7 p+ _" g/ t/ M( o' E" R

当应用程序发生异常时.你也可以自定义一个异常处理过程而不用缺省的ShowException

: U) X: q7 r+ h6 L) v% p3 x: v f

4.OnMinimize

应用程序最小化时的事件

7 }' I3 \" x- k& w/ z9 N( u2 r

5.OnActivate:

应用程序被激活时的事件

6.OnDeactivate

应用程序失去焦点的事件

7.OnMessage

应用程序接收到消息时的事件.如果你想作特定的消息处理.你可以按管这个事件

2 }+ \8 d# ]3 L/ @% Q: d2 \

8.OnRestore

/ n3 q1 U6 X) M& z# |4 v! i

应用程序由最小化状态恢复时的事件

* g y/ p# D% u) k; T8 O

TApplication应用小技巧:

% A' I' _6 k1 e

A.打开相对路径数据文件.通常要打开的数据文件（如程序需要使用的DBF数据文件,TXT

/INI文件等)都不是固定路径，而是相对于应用程序的安装目录变化的.

+ e3 B( x- J ^ S6 n) F; L3 {

AnsiString filepath;

filepath=ExtractFilePath(Applcation->ExeName);

//ExtractFilePath与ExtractFileDir是有区别的.表现在ExtractFilePath最后总是有"

4 o# D3 z& R! }5 c- B

\\",而ExtractFileDir只是在路径为根目录时最后才是"\\"

1 {6 q. _ L& h/ s! K+ E+ l

Table1->DatabaseName=filepath+"data";

' Q; q5 t7 f, r1 t( @0 B# i

Table1->TableName="maindb.dbf";

try{

Table1->Active=true;

}

$ J! O; _. z3 `3 {

catch(...)

{

//......

8 K4 T3 R" A: g+ Z

}

另外有一个函数ParamStr(int index)与Application->ExeName有同样效果.ParaStr(0)

& a' v: S/ O3 u; N; e J( E* i

就是应用程序命令行第一部分.也就是执行文件的全路径.

B.自定义异常处理窗口

( w6 h8 L; L4 ~

缺省异常处理窗口是用ShowException显示的一个窗口，其标题为应用程序的Title.我们

也可以自定义异常处理函数，以便对异常进行自定义的处理。

' U- t8 {- \+ R* z

void __fastcall TForm1::FormCreate(TObject *Sender)

{

Application->OnException = HandleException;

$ Z) d+ F* o# X2 w

}

" d( r# W$ y9 F- K) p! U3 O

void __fastcall TForm1::HandleException(TObject *Sender,SysUtils::Exception

1 M% s4 J/ \7 D/ @! F

*E)

{

" Q3 V+ ^9 x% y0 I

AnsiString errorstr="应用程序发生了错误.\n"+E->Message;

Application->MessageBox(errorstr.c_str(),"发生异常",MB_OK);

}

5 p7 k9 @4 K8 R' t* [) Q: Y

C.利用OnIdle事件做一些时效要求不严的任务.

7 c: v! V. T; ]! P0 i9 w

我们用Timer定时处理一些事务。但Timer是要占一定CPU时间的,对应用程序的执行效率

; m/ R9 v! r$ _7 j: B

有一定影响。如果这个要处理的事务并不十分重要.我们就可以放在OnIdle中处理。让应

7 L/ o' |" T! z& v

用程序在空闲进处理.

, j3 Q- m! R$ a" A

void __fastcall TForm1::FormCreate(TObject *Sender)

; V5 E$ s [! ?# m% D

{

Application->OnIdle = updatestatus;

}

& E1 P! G9 b) G

void __fastcall TForm1::updatestatus(TObject *Sender,bool &Done)

& P/ }( ^9 R b4 {! w1 @; ?

{

StatusBar1->SimpleText=DateTimeToStr(Now());

/ r; m! L& }& z, T1 x: L# W# z

}

由于C++Builder5已经将Application做到了控件选取面板上。这使得我们对Applicatio

n编程比以前方便了不少。以上的方法对cb5以前的版本是很适用的。如果是C++Builder

5，我们也不用这么麻烦地写代码了，直接在Application控件的对应事件中写处理代码

即可.

D.在一个长时间的执行代码之前或之中及时处理其它消息

! H( Z' O% q% j! }+ c

Form1->Label1->Caption="开始执行指定任务:"+jobname[0];

Application->rocessMessages();

9 g7 [5 n1 ~# l" P! M

runjob(0);//假设runjob是一个长时间的任务处理函数,在执行中不处理系统消息