TApplication类的简要说明

韩冰

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

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

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

9 }& O V9 ~' ^* x3 b- H- W

lcation的代码.

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

0 Q, p/ S8 n1 z3 \

。

* P8 i0 Y) v4 u

一>属性:

$ `/ B2 d8 k! T8 D* ?" s

1.bool Active:

2 c* ?0 U( K1 i

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

rue,否则为false

7 A/ z' R# H; o# h! U/ _- Q

2.AnsiString ExeName:

( }. w7 `& Z8 g! i; @( q( }' f5 w

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

; g" z0 R8 k* U9 ?# n5 g

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

的文件名部分

3.HWND Handle:

' k2 ~- b2 [' K( I! K

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

+ C" l5 r4 ^0 j( B

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

9 F$ s; Z' i( q6 _; y. V% o, @

4.TColor HintColor:

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

5.int HintHidePause:

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

' d% T' Z' X. y

6.int HintPause:

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

0ms

7.int HintShortPause:

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

- E% E) r- d% Q! }' w! }" r

8.TIcon Icon:

8 f0 f _1 H, d) y6 a1 c5 k7 B" d

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

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

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

, c* p2 [+ H" w( m0 u# q+ `; m

9.TForm MainForm:

. e8 ?7 X$ Y5 ~% n/ j$ I

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

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

10.AnsiString Hint:

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

$ C6 J% I6 q; b/ l& c: Q

11.bool ShowHint：

是否显示提示

12.AnsiString Title:

" l; I- o; ~4 T

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

13.bool ShowMainForm;

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

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

2 Y7 l" m' [6 b0 B+ \

14.bool Terminated;

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

二>方法:

6 K4 I1 E( p1 _# n2 B

1.void BringToFront():

5 e. {, d8 a: S, s; s9 x

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

口之前.

Applcation->BringToFront();

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

1 [. o2 B4 W Z4 l$ w9 Q% T$ ]1 b# ?

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

) z! J+ J" X2 N3 I; u/ B

MessageBox函数.

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

caption:对话框标题

( C% [- p- q! }/ n2 o& }

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

7 Q* w7 U+ L# P( D& h, F

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

MB_OK:显示一个OK按钮

MB_YESN显示二个按钮:Yes或No

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

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

+ a, |, @" C, }5 ]# z0 n, Q

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

0 B5 f% ~" U) a& d- y

缺省按钮:

+ C$ w* m! x* U. p* R

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

按钮.缺省为MB_DEFBUTTON1

图标:

% ]' k9 k2 Q [& z

MB_ICONSTOP:显示一个红色X图标

6 S% ?& f9 n/ r G3 j7 y

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

2 o' u* f( U3 o7 s! w2 c

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

, ~, j- y! r) Y9 k( m* H& g

返回值:

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

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

2 H. n9 G; F8 G* r; {+ G+ m

NQUESTION)==IDYES)

{

0 H- s& n; u) M

Close();

4 ]3 e5 E4 L s% c Y. O% E9 ]# Y

}

3.void Minimize()

. `) q& ^7 t3 C: ] u

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

9 x% V# q5 @" L4 j! L

4.void Restore()

, {) Z. W2 b7 [

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

5.void Terminate()

& G# y6 Z3 y ?- E" D g( W

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

6.void ProcessMessages(void)

4 \; J: K" s& \, P* a k4 ?

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

2 R4 a1 O/ d, S9 _! o* L+ m% ^5 }

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

5 c4 Z& z1 N% C0 A* w& F

返回值:

3 ]& p( E9 x' a) ]0 E+ S- R

按钮.缺省为MB_DEFBUTTON1

图标:

MB_ICONSTOP:显示一个红色X图标

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

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

返回值:

! e3 B: l% K* h

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

. H3 N) E* P6 O4 I: n8 v" F/ @

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

8 u5 O, i" _6 y0 j, I0 ~

NQUESTION)==IDYES)

% l; ~3 \" `( h9 M' _% F6 Z3 [

{

Close();

- N& i' h: [' P& h- g

}

3.void Minimize()

2 q" F4 Q* ~2 x

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

' O6 V d) I& _; _' W

4.void Restore()

" S( i7 D, a$ b, a

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

5.void Terminate()

+ w3 o' _& O" F( k

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

6.void ProcessMessages(void)

/ o6 j# { i4 x5 A% y

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

* a: t3 }; z5 k. e

中的消息

2 x- k( D( y, }6 M

三>事件:

* g$ }. v- n) S( O5 A

1.OnHint

" J# v' A2 l& J2 F8 _% r1 t

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

+ V- O7 v5 K) Y

示显示

例:

+ z. N T/ m0 r1 u+ {

void __fastcall TForm1::FormCreate(TObject *Sender)

{

3 y1 \3 p1 o: Z6 E q) `

Application->OnHint = DisplayHint;

" W. i6 c- \" S8 b! T

}

9 Y+ h ~+ ^. A2 m6 |

void __fastcall TForm1:isplayHint(TObject *Sender)

{

. X" C: n; B9 L8 L# i5 @6 C

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

}

1 ]! k! u& i/ h/ K0 c& U

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

2.OnIdle:

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

+ u2 N" f7 x; o$ R- c7 y) E$ S' t4 M E2 x

的任务.

3.OnException:

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

4.OnMinimize

应用程序最小化时的事件

5.OnActivate:

8 [* s/ g% S! W/ B5 B

应用程序被激活时的事件

" i4 R3 R7 s% d

6.OnDeactivate

应用程序失去焦点的事件

7.OnMessage

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

8.OnRestore

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

TApplication应用小技巧:

4 `( G: z8 H- O+ {2 X" F9 B

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

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

& M& _( W) q5 O# J& n

AnsiString filepath;

filepath=ExtractFilePath(Applcation->ExeName);

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

$ N* Z& h. C( A2 C/ p

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

Table1->DatabaseName=filepath+"data";

' S/ J6 P+ x: Y9 } Q; ?' S

Table1->TableName="maindb.dbf";

, v5 X8 F* A; I# R% k- M8 l+ v

try{

Table1->Active=true;

( i& r; Q. h* s

}

catch(...)

{

3 a# h6 X1 s6 i& w9 R

//......

0 l. l3 m7 `& c1 O& L

}

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

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

! o& D' }+ t6 E8 I

B.自定义异常处理窗口

7 {/ F8 r4 g$ r: |

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

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

2 w" ^4 H; C1 F* D/ _

void __fastcall TForm1::FormCreate(TObject *Sender)

{

8 s/ O# j7 ~3 B; o

Application->OnException = HandleException;

1 _3 `6 R$ C% l% g5 \ Q

}

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

" m) G0 b' n4 J6 @- X$ a: ~

*E)

1 L, X" Y4 C) f. V

{

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

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

; L( k: v; B* `

}

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

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

/ C! k# T& f" K( P

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

用程序在空闲进处理.

' _% q9 t& }7 d+ ?" S% `1 a

void __fastcall TForm1::FormCreate(TObject *Sender)

) w# w- t) w' `5 X

{

: W8 T: ?0 c. A: L

Application->OnIdle = updatestatus;

}

8 q3 |# W5 o' D. x6 b2 r

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

{

- g1 ~: n* Y/ P/ M; |

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

) D7 p1 K" \( H0 H( q' I9 q" P

}

: G8 x7 J- l! Q3 ^; S

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

4 @* {+ I& q) H

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

! z% t# Y* i2 i; f/ c

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

: q3 G' ?4 g, k4 `7 u( S6 `2 E

即可.

% x( g$ I9 ~1 g

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

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

Application->rocessMessages();

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