TApplication类的简要说明

韩冰

TApplicaton封装了标准API WndProc过程.每次创建工程时，C++Builder都会自动创建一

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

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

& r1 M) q3 c$ r3 |) Y

lcation的代码.

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

。

一>属性:

8 W1 R; S' g/ |! p+ z

1.bool Active:

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

- C1 O8 i; x* b

rue,否则为false

2.AnsiString ExeName:

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

: y9 ~3 i, [% o: t8 x& Z

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

的文件名部分

1 {. }2 z: A7 c6 [( a+ C- @

3.HWND Handle:

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

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

9 I: _4 a: A7 I& t x

4.TColor HintColor:

1 `$ u% m) P8 C9 K

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

4 n V z2 e& A! \

5.int HintHidePause:

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

) k1 L# C# _' ?6 p! ]: w

6.int HintPause:

: {$ d; c+ l: a0 {$ c2 c( N5 c+ h

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

! `" Q: h2 c3 x C

0ms

7.int HintShortPause:

; ]* X8 @$ c1 j- v3 l# I

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

3 _+ j" D* y+ I$ E- z

8.TIcon Icon:

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

: N$ ]0 r; t2 u- M* _& z

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

* i7 A5 }# W2 o' h5 m8 B0 V( K

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

9.TForm MainForm:

( z$ v: U% n L; L1 f. H

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

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

10.AnsiString Hint:

5 ]1 T# p9 D' ]7 B( K

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

2 k, c7 p* u6 p! o* ?0 M. e

11.bool ShowHint：

7 [, F; m% g1 ~! H, \) j& f/ i

是否显示提示

12.AnsiString Title:

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

13.bool ShowMainForm;

5 I9 ~! i! k0 h# j! |* _

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

- v. ]; O1 w/ h. U! f, i

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

14.bool Terminated;

; s; |) \/ L E7 P0 `: F

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

q' B% R7 L8 z9 v! j3 T3 E' Z

二>方法:

1.void BringToFront():

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

/ n4 v {/ M8 L, r3 W! J

口之前.

+ I4 m2 O( d5 \7 F

Applcation->BringToFront();

" @! M! P9 D( Z C9 ?9 A

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

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

5 [7 z: ?, o* z

MessageBox函数.

& C* q! F7 Q( m

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

caption:对话框标题

9 D8 J% R0 i. ?2 y9 h

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

* \& l5 B/ g4 p; I6 v, f

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

: y6 T, c/ d) R0 h8 F2 Y. Z- a

MB_OK:显示一个OK按钮

6 C7 z# q& q* k5 U

MB_YESN显示二个按钮:Yes或No

5 k, V: Q# o' ?. b: g, F

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

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

# u" r* A u8 x+ b& I

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

o+ Q. W- b w/ k! K- w# z5 E

缺省按钮:

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

5 Z7 {6 D! P/ q0 W$ U; J# Y

按钮.缺省为MB_DEFBUTTON1

图标:

7 b! Z$ v' _* T

MB_ICONSTOP:显示一个红色X图标

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

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

/ Z8 C( z& N( R/ Y, z

返回值:

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

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

}7 ]& B( z! u0 Y2 x. E6 f/ ^3 ?

NQUESTION)==IDYES)

{

Close();

" O i) x6 ~4 H5 m, p

}

3.void Minimize()

6 f; A( Q# s6 Y5 y/ B

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

7 m4 f/ ]5 ?7 b2 ?

4.void Restore()

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

) Y8 L& R) _4 [# J+ u) K

5.void Terminate()

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

6.void ProcessMessages(void)

1 b; G) H5 \0 f! m

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

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

返回值:

6 _! e/ E; q4 U: U" v9 ]8 P

按钮.缺省为MB_DEFBUTTON1

: e* ]# {. _5 S( O

图标:

" @' [. i/ F* c9 z, b

MB_ICONSTOP:显示一个红色X图标

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

$ }3 D- ~3 Y3 v

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

+ q' |( t7 F6 U) J) f. i, D$ U: d

返回值:

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

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

9 e1 M0 S( J7 h

NQUESTION)==IDYES)

{

Close();

; }8 b( {4 ?0 w0 X5 j @, ?1 O8 F3 _

}

3.void Minimize()

1 c2 ^8 b: s* m8 x% Q' {2 K2 h! n

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

: q/ s$ Q$ u ?5 X# N

4.void Restore()

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

- b* Y7 j, Y7 u' B1 f7 e

5.void Terminate()

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

6.void ProcessMessages(void)

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

中的消息

三>事件:

' E, f. D! A0 s6 e9 r: `1 T

1.OnHint

% {( V3 z. J7 F% A, e

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

示显示

例:

void __fastcall TForm1::FormCreate(TObject *Sender)

{

7 a" ]- }. |2 M; B$ S2 q

Application->OnHint = DisplayHint;

& K* H- ]0 r! J3 R* ~2 c# A

}

0 i# H1 v* z9 R# L; V

void __fastcall TForm1:isplayHint(TObject *Sender)

( I8 V* |& Y3 M

{

0 q" N. p+ p8 l5 @

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

}

: R1 e! W7 u5 ~7 P2 w

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

6 E! S# T6 b; J0 A( \- y

2.OnIdle:

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

! y2 G- b+ b+ V( X! ^

的任务.

3.OnException:

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

# X, B9 S' l8 t# q3 i

4.OnMinimize

应用程序最小化时的事件

; ~6 E$ O. e: [. i$ E d

5.OnActivate:

- S0 @1 G9 @4 {* L$ k; ?4 V

应用程序被激活时的事件

5 j c0 I$ e* u

6.OnDeactivate

应用程序失去焦点的事件

7.OnMessage

$ ^9 k! A0 f. t2 Y; ?

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

6 M4 G% ^8 e/ K: f2 m9 q3 V* ]

8.OnRestore

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

7 L9 F9 J/ \' |' E4 W

TApplication应用小技巧:

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

8 K, }# |. ~: W4 `9 {( y6 m

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

, |/ f# s6 K r, K- k0 D$ q! a

AnsiString filepath;

filepath=ExtractFilePath(Applcation->ExeName);

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

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

8 P9 R" c; _& ~" v0 M

Table1->DatabaseName=filepath+"data";

Table1->TableName="maindb.dbf";

; p+ C1 n* _; ~

try{

Table1->Active=true;

}

catch(...)

{

//......

2 g7 O6 s$ ^" A- R5 y0 T3 i2 r

}

+ Q0 l* r5 K3 k+ T M7 W1 ~3 @% x

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

: @! s" G# P3 }! d

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

$ q7 x; e" K: r1 t! @+ \

B.自定义异常处理窗口

; R3 G. K7 Y7 E* e- _7 k

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

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

# Y4 l9 S/ U% {+ s, k' X

void __fastcall TForm1::FormCreate(TObject *Sender)

{

Application->OnException = HandleException;

}

0 J9 C$ B# I4 H! _' ?* v

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

6 F, b7 i- c; l9 K

*E)

{

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

- J0 L |9 y! X5 [4 g) `2 S9 J7 U

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

/ N4 d5 `: t$ t# Y) r. S

}

% H3 A- Y. R m& I+ p

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

7 M `$ ~3 |3 ]) i7 J( m

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

3 L* l6 E% J! i/ R! Q( E3 d( O

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

用程序在空闲进处理.

void __fastcall TForm1::FormCreate(TObject *Sender)

{

Application->OnIdle = updatestatus;

. v; V0 [/ g' ~1 e

}

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

{

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

}

' g6 B6 B7 f4 N1 G ?2 R0 o

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

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

) S9 I* M& ]$ d: D1 r

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

即可.

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

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

# Y- p7 u" g" b2 u/ M- r8 [" X- Y

Application->rocessMessages();

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