TApplication类的简要说明

韩冰

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

$ s ]; Z- K% ]" s( C6 m5 d; i

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

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

lcation的代码.

; V1 g! m: e/ [6 G

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

& G: @5 G4 W5 K# K

。

一>属性:

1.bool Active:

# B; t$ b# K# c* D1 a3 Z W( s

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

; c5 g7 r6 w, A; A. n6 @. ~

rue,否则为false

: A5 z( l1 A1 F2 ~2 k6 Y

2.AnsiString ExeName:

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

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

5 R( C0 F) F1 n1 L+ C* Q4 s

的文件名部分

3.HWND Handle:

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

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

1 v/ ^1 p9 K& C# ]; U) Z

4.TColor HintColor:

5 g; h+ B1 ?8 U! O

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

3 w8 x- z& _5 j, A7 E

5.int HintHidePause:

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

( A5 W( Q Z4 E& T, C6 A# A

6.int HintPause:

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

; W2 u: p" P: j6 @. ^1 S7 X

0ms

7.int HintShortPause:

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

% `. U/ J$ Y/ [) C3 o4 s. c

8.TIcon Icon:

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

: C" w5 ]/ T/ g0 f e% T, d

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

, e4 a; l' _8 K3 ^

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

9 V' ~+ Y: j8 E+ }

9.TForm MainForm:

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

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

. C, u) b/ a/ X

10.AnsiString Hint:

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

11.bool ShowHint：

是否显示提示

12.AnsiString Title:

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

. z) d# l/ ]3 [- e; }2 \ Y6 i

13.bool ShowMainForm;

# |) }( Z, I# z5 |2 f

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

. h* x1 X% k9 S& \8 s$ W/ `

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

* S; e$ j+ U: f7 o( C$ ~& y

14.bool Terminated;

: b) @; o7 d$ j+ M, m' o* a

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

4 P( X) y( v, A! P

二>方法:

C; }) c5 C+ [1 o7 Y3 v. [

1.void BringToFront():

5 N8 n! C+ p+ J1 I0 D- \

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

口之前.

$ z# R6 v$ a2 f9 e% F

Applcation->BringToFront();

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

* c3 G$ T U, M& J$ ^5 h

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

MessageBox函数.

* X$ }" ? q" h$ y/ A% q

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

) r* k' U' M/ `# N* s* u. _: a

caption:对话框标题

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

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

! `! T, K8 s) c5 S, a$ u4 u

MB_OK:显示一个OK按钮

MB_YESN显示二个按钮:Yes或No

, V3 D2 q( X3 D' N% M

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

5 r% Q; w3 b$ ]. \

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

* g5 w \) `; p0 B1 ^ X; l9 Z7 I1 y8 H8 t

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

缺省按钮:

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

6 F, b! b. R- P3 b7 n; a

按钮.缺省为MB_DEFBUTTON1

4 J+ f( \+ @) J& n

图标:

MB_ICONSTOP:显示一个红色X图标

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

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

) V' s {) A" m2 I0 P

返回值:

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

; e2 d. N0 @% n/ I# ]. I, y

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

2 z+ b0 i7 B; Z5 H/ X. I' n

NQUESTION)==IDYES)

6 h- A% l1 R1 Z, q

{

+ Q. Z! O! B! j! i7 ~1 @

Close();

}

3.void Minimize()

G0 z6 g# C3 Y! F9 g

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

. c/ q6 V% R& |* ], ^+ u

4.void Restore()

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

! t$ }) b0 s- ]8 R, y

5.void Terminate()

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

6.void ProcessMessages(void)

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

, Q% k: S9 k$ D" r

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

返回值:

按钮.缺省为MB_DEFBUTTON1

3 H) [, i2 b3 d6 r( H: S6 l2 A& d

图标:

MB_ICONSTOP:显示一个红色X图标

# }! O( V, s7 \" [2 s& z

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

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

" Q- [" u# u' f) a/ q( U

返回值:

' l- B6 [( @) B! ?1 G h8 I# t

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

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

NQUESTION)==IDYES)

{

Close();

" ^6 V. T+ g W' X* U9 B9 L. v

}

3.void Minimize()

/ C: g) _6 V9 K' k* {- _8 G* `: X

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

& d. u% J4 A. g' X: U

4.void Restore()

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

z1 e. u# L1 M% i. o) Z

5.void Terminate()

" C$ ^; ~- W2 O/ V

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

+ w* G) ]! d- m0 w2 @

6.void ProcessMessages(void)

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

/ x# Q9 N# D6 [7 S& X- c9 S

中的消息

4 G0 X% m" U! `

三>事件:

1.OnHint

! r- ?6 G" w- X

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

2 q6 a, `% H. p5 T: T

示显示

例:

void __fastcall TForm1::FormCreate(TObject *Sender)

{

Application->OnHint = DisplayHint;

}

void __fastcall TForm1:isplayHint(TObject *Sender)

{

2 D+ `" s: n, a! T7 l' T* k0 J5 ]

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

}

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

2.OnIdle:

) q( i' R7 ]7 | g0 Z0 B9 u0 B/ i/ A

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

5 f+ v& J6 ~* ~

的任务.

# @2 k; Y/ L0 `3 O, E. S8 r! _) J( S

3.OnException:

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

, ^3 }- O$ k: S! U+ K6 B: H: L( O

4.OnMinimize

应用程序最小化时的事件

3 O, Q6 g& N8 Q9 j; q

5.OnActivate:

应用程序被激活时的事件

) U3 h9 D; Q$ y: V2 M) J; n

6.OnDeactivate

- q% y/ W$ R+ }/ Z1 q- T

应用程序失去焦点的事件

7.OnMessage

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

5 m: ?1 f) t. B3 ^. ]

8.OnRestore

: O) M; W! {+ O3 Z0 C! s- h% v

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

0 F: ^' V5 x% \

TApplication应用小技巧:

, x8 W2 e+ S3 W

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

4 N* Z, Y3 Y) I2 a. m+ N1 z% s

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

( M" l9 \5 p2 }: G+ e0 L

AnsiString filepath;

& E# i0 ]9 N" j4 t

filepath=ExtractFilePath(Applcation->ExeName);

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

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

Table1->DatabaseName=filepath+"data";

0 ?3 O4 s, a% X: v9 u; ~4 `

Table1->TableName="maindb.dbf";

try{

: q. x5 n/ R O! \, P

Table1->Active=true;

4 }; S* N h5 i$ B/ V4 o7 x

}

I! @; y: q% I+ t% F+ v' X

catch(...)

# q+ x V: L2 \7 t0 v3 S

{

//......

}

/ ?1 p+ [7 E3 `6 r- z7 W4 H

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

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

8 z5 E3 [9 k: t* [7 O" _

B.自定义异常处理窗口

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

# N) g \1 c/ F/ u' z' C

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

; z: M0 [4 c, e$ f

void __fastcall TForm1::FormCreate(TObject *Sender)

{

Application->OnException = HandleException;

6 a, L8 f6 T6 K8 E8 P" u) p

}

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

*E)

{

6 m4 R# N+ e+ Z9 N4 d$ M( T q. F

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

& [+ s1 \. d8 {7 P6 }( a5 W. ]

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

9 u7 S2 J% J: ]# Y$ L {8 F

}

6 g* c# h. |1 I

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

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

6 s% G( A9 O4 Q$ U

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

用程序在空闲进处理.

# B6 U8 M% Y1 S 1 {1 P7 H: H' K) r* w5 H: V

void __fastcall TForm1::FormCreate(TObject *Sender)

{

Application->OnIdle = updatestatus;

" u% i4 e' ?5 ~7 Y# F t

}

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

( F+ c1 o) O1 B2 F5 y% w/ }! k$ K" i

{

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

}

- t0 _* V% Y& V$ X5 y" e5 j

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

+ A. W0 ~- J. m. f0 Q7 A; ~

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

) f4 o$ Y0 B+ A0 {6 w

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

即可.

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

' J: m* m, X0 F' X" n

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

Application->rocessMessages();

# h1 F; T5 i- y7 Z+ i' S- U- ^

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