TApplication类的简要说明

韩冰

- [" B" c/ Q X7 `; x1 OTApplicaton封装了标准API WndProc过程.每次创建工程时，C++Builder都会自动创建一

: _- @. l W* w) t

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

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

8 D, X- t; Y3 r. k$ X

lcation的代码.

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

。

一>属性:

( t* {" u1 }4 S% |! l5 c3 v

1.bool Active:

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

rue,否则为false

0 c, }6 R: e0 ^0 M4 i" m; n4 t |1 G

2.AnsiString ExeName:

0 }+ ]! P; S: J

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

I, L! @8 m& Z3 V' a: s2 q# E

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

; q- q: H5 L% N6 Y. I0 P' Q$ F

的文件名部分

1 _6 L, O$ @- b- h: D( R6 F, y1 g

3.HWND Handle:

5 e- E A0 G: W) r# C5 \

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

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

4.TColor HintColor:

! Y' Q- }/ f2 h& W4 P7 P

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

5.int HintHidePause:

( E$ g* _3 F+ {' J

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

1 M9 `) i* Q m# j8 C+ J6 A0 T

6.int HintPause:

; L+ `* j( s1 \5 G; J4 _0 i5 N

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

0ms

0 q9 d! r# V0 u# X( C) ?5 t

7.int HintShortPause:

$ a; R) |% Y! H

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

8.TIcon Icon:

- [7 p1 z" j- o! Q2 v! ~

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

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

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

! y- G) k7 q6 K! o

9.TForm MainForm:

0 M$ f4 C9 q, b3 L M

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

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

10.AnsiString Hint:

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

" ^- ?/ R% Y( K) x! e

11.bool ShowHint：

是否显示提示

12.AnsiString Title:

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

7 D1 N0 c: w; @) e: x$ Y3 j

13.bool ShowMainForm;

: H# i) S" V, U- v r9 B

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

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

$ P7 }4 H: Y7 D# S! M! ^

14.bool Terminated;

) Q9 M2 C) X8 P& N" ?0 a

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

二>方法:

1.void BringToFront():

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

- v% w$ b. i. P1 b

口之前.

) `3 w& y6 W/ d4 P

Applcation->BringToFront();

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

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

MessageBox函数.

8 h0 }; P1 q* L9 M

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

caption:对话框标题

2 E, V1 c, \2 }6 T; `' U( l) P; p

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

. |' X# f, D* h

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

( [5 I- u& Q- R8 B* O. e( `# Q

MB_OK:显示一个OK按钮

MB_YESN显示二个按钮:Yes或No

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

4 c" ]( z0 z( E1 d. o- s$ r

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

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

' i* Y8 O0 }+ ]: f' j

缺省按钮:

^6 Q; @. y& c# D. A0 u

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

0 e' P: O0 ~0 u$ _9 U3 k! Z2 `# U

按钮.缺省为MB_DEFBUTTON1

图标:

, [. {& ~% A- G o x. _. Y

MB_ICONSTOP:显示一个红色X图标

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

* x: n. k7 {6 O' j- A6 r \

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

% F r6 f) j0 ~ I: o

返回值:

& z* V4 n$ g$ k, q( z

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

, F3 j' N1 u; C; M! W

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

NQUESTION)==IDYES)

{

Close();

5 U8 F' x8 J7 @0 l5 o5 z3 H

}

3.void Minimize()

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

4.void Restore()

6 x$ M% J: k8 m8 \

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

5.void Terminate()

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

4 i" ^) @. \6 o9 L5 k7 m

6.void ProcessMessages(void)

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

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

返回值:

4 h9 z. g( {9 L2 @

按钮.缺省为MB_DEFBUTTON1

3 X! |3 O& o3 P: [6 q# u/ V

图标:

MB_ICONSTOP:显示一个红色X图标

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

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

: _* ]" y& O5 q' r/ I

返回值:

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

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

NQUESTION)==IDYES)

/ `& M, s/ E" i

{

! Y9 I0 A# o0 }+ x* \# y8 J

Close();

}

3.void Minimize()

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

4.void Restore()

( [% A: B% t7 A8 q% T4 U

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

5.void Terminate()

+ r$ ~; a( a J0 K9 L6 A

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

6.void ProcessMessages(void)

7 u' w* @& ~0 Y9 Z, ?" B

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

中的消息

三>事件:

1.OnHint

, t% e9 Q4 G9 o

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

8 ~% j* l) y) _, q

示显示

例:

. D q h) B5 @0 d3 x

void __fastcall TForm1::FormCreate(TObject *Sender)

) y9 a) y3 ~: C# A0 h# o, E

{

: h J! ]$ H7 Z

Application->OnHint = DisplayHint;

& d! Y/ @8 h# a; P: B" r

}

void __fastcall TForm1:isplayHint(TObject *Sender)

% t3 j. O. } `" K/ w/ k

{

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

2 |* Z7 B1 q8 e% b# Q

}

+ [/ y; U. I1 h

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

2.OnIdle:

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

的任务.

3.OnException:

, ?' M+ B" b8 N+ Q/ Y- ?0 [

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

4.OnMinimize

, t, X, _2 R$ b: `! O

应用程序最小化时的事件

P1 V: g9 X9 T

5.OnActivate:

应用程序被激活时的事件

6.OnDeactivate

应用程序失去焦点的事件

7.OnMessage

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

8.OnRestore

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

TApplication应用小技巧:

* g) i$ E1 n# N

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

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

% o2 k L# \& m5 |+ d% s' [

AnsiString filepath;

filepath=ExtractFilePath(Applcation->ExeName);

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

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

Table1->DatabaseName=filepath+"data";

Table1->TableName="maindb.dbf";

try{

Table1->Active=true;

( K: _& x" s7 l

}

catch(...)

{

0 R2 _9 L2 g. E

//......

}

8 z$ i2 B! T4 s* N2 E# W9 k

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

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

B.自定义异常处理窗口

8 r- R- ]+ ]9 U

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

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

& M5 a+ U. Y8 M3 E: i( S

void __fastcall TForm1::FormCreate(TObject *Sender)

9 u0 }7 \* B/ m* H& s0 U' K3 G

{

" o/ o1 g% |( X8 C3 J

Application->OnException = HandleException;

% I( [" t, \7 l9 x" z; |

}

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

2 {% {2 J& V) {( P* {! u$ Z5 p

*E)

{

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

( W- D0 @ R" z* B( n: }, M: W0 u- m

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

}

$ b. m% J2 @2 v5 r' q+ Q+ [; C

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

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

7 E4 s/ |! j: w+ R

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

r5 u8 z0 r& E

用程序在空闲进处理.

void __fastcall TForm1::FormCreate(TObject *Sender)

{

/ R5 }) c; {* F

Application->OnIdle = updatestatus;

}

" N% Z8 J/ O. z" y0 A2 x

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

. P4 Y- R4 P8 K, r- h# I% g$ w

{

7 t; H5 S/ ~# p

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

( `# }7 D* C. t. m* ~

}

U2 [4 B' w9 H1 E K4 t+ b/ e& [4 q

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

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

8 Q) P7 F' M- N% U* H

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

即可.

" ?2 B" v" }( W7 l

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

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

* e" |: _0 X4 ]1 g& C7 h5 w

Application->rocessMessages();

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

' ?8 Y- Q7 }# S1 ?1 _8 B