TApplication类的简要说明

韩冰

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

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

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

8 |/ a6 k; p+ _# T/ X% O

lcation的代码.

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

。

一>属性:

1.bool Active:

5 t* c4 u7 S$ T7 h8 [- I

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

/ B3 J$ b( D4 r1 r4 l- \

rue,否则为false

2.AnsiString ExeName:

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

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

的文件名部分

& v4 T$ g8 Z7 s8 C p9 O

3.HWND Handle:

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

0 }9 g) W- F$ Q5 n" ^; q

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

4.TColor HintColor:

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

" _. O6 h# I( `$ [2 X) U

5.int HintHidePause:

+ t2 z3 g" E2 a

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

6.int HintPause:

4 r+ M) G6 S# h. I( e1 P( i

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

0ms

7.int HintShortPause:

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

0 ?' o5 K" L& W

8.TIcon Icon:

; I. N/ J+ K9 k5 |- R$ K) N- P8 c

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

7 b8 [) y0 E5 G* F" b

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

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

" i* T2 ^$ b" g. T

9.TForm MainForm:

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

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

10.AnsiString Hint:

$ t( W# p2 q1 K( W3 ^

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

11.bool ShowHint：

! z+ d" A1 p8 ^# o( e" H

是否显示提示

12.AnsiString Title:

; o" h( B; \" U# G

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

13.bool ShowMainForm;

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

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

14.bool Terminated;

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

6 Z2 o6 q1 z2 S

二>方法:

; |+ P# c- q8 k) H1 P7 T3 q2 C

1.void BringToFront():

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

口之前.

( I9 N5 k7 w- n6 z2 L8 |

Applcation->BringToFront();

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

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

MessageBox函数.

: P) C+ h8 N# P3 H- E$ W

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

" D( F* n' l: q% Y0 f# u* o

caption:对话框标题

- k9 i0 v7 P8 X. H0 k5 [0 |, d

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

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

' k, g6 L- A+ _# G$ N# @2 d

MB_OK:显示一个OK按钮

) k2 R5 j8 m1 g& J% Z' w

MB_YESN显示二个按钮:Yes或No

+ _7 m& {7 c) G' X1 L' u

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

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

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

缺省按钮:

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

: }8 j- q4 |) Y

按钮.缺省为MB_DEFBUTTON1

' b- W9 D- H* Z" l

图标:

/ t% _6 b: N& y5 S9 \% \5 W

MB_ICONSTOP:显示一个红色X图标

1 Y0 ~# A) b9 s% \4 A! P' z

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

1 R$ {. C R0 W8 H

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

4 r9 D" O" D9 S4 Y& V# t3 X4 {4 X' B

返回值:

' a' i; \- \& q; [/ @; |& p

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

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

NQUESTION)==IDYES)

{

Close();

9 z6 F; S" y, I- Z+ U8 l

}

+ t) D: Z8 F6 a# @" G' [

3.void Minimize()

* [! y5 L1 C: k( I. S v& m* U

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

4.void Restore()

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

5.void Terminate()

' ]& n! |+ E4 z: I# C

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

6.void ProcessMessages(void)

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

2 L' c/ G/ ?' J9 U1 R0 s4 m1 ~3 s

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

返回值:

8 b: j7 c, i8 Z8 G, [ g+ v

按钮.缺省为MB_DEFBUTTON1

# _. N3 |+ A+ s- S

图标:

MB_ICONSTOP:显示一个红色X图标

1 [( P/ r( S' ]! o7 m

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

. d# p8 |5 d: ~% i1 N$ q; E+ h

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

& E% ?% h' j1 D

返回值:

7 q6 U1 {) r U7 ?& {6 i: x; R

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

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

; H6 @( p- L, ?3 H! D4 X0 F

NQUESTION)==IDYES)

4 s4 F- {- ^2 ^' \& a( L

{

% @0 r: @* @5 E& [3 A

Close();

# ?' t7 @+ M* b8 O% F2 t

}

3.void Minimize()

# k% [1 c. T7 N0 ?, e7 a; {

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

" r/ d6 I! d ]; {0 E) ]- [9 X

4.void Restore()

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

1 k; x8 \5 g" l% Y* t

5.void Terminate()

: ^0 y! r6 G# X! o$ ]5 ^5 ` x

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

% [6 B: O0 a+ m" P8 X+ J/ \. M' s

6.void ProcessMessages(void)

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

中的消息

! ]) o$ j5 Y" { a2 B- P

三>事件:

1.OnHint

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

0 n4 ^6 F% G& z% X6 `) L; m" ]

示显示

; t% ^& R9 U( v8 Q( G

例:

; ]) v* f+ `/ V2 E8 o

void __fastcall TForm1::FormCreate(TObject *Sender)

{

, S" P/ {( Y, v" s

Application->OnHint = DisplayHint;

}

( H% ]* Y( R. S$ `

void __fastcall TForm1:isplayHint(TObject *Sender)

{

/ U1 y3 R, w( y

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

}

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

2.OnIdle:

& K0 p* p: o0 G5 u8 A1 f& l

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

的任务.

3.OnException:

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

6 j3 t0 E# d2 u) G$ l

. }, g" }0 c3 D% x

4.OnMinimize

2 }+ b! |/ o" r6 z% Q7 p2 h" e/ [+ E

应用程序最小化时的事件

5.OnActivate:

应用程序被激活时的事件

6.OnDeactivate

应用程序失去焦点的事件

7.OnMessage

% J- ^0 x( w: `* D& f

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

8.OnRestore

r P: p2 \( W+ b0 Q, f4 S

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

- a0 w! W1 }6 K3 y1 E

TApplication应用小技巧:

8 P# `3 X! Z; U7 b" l+ f% D

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

2 \8 k3 P# R" i1 d, {6 ]' n

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

AnsiString filepath;

filepath=ExtractFilePath(Applcation->ExeName);

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

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

' A& n8 c, {% x* U7 m

Table1->DatabaseName=filepath+"data";

1 L8 ^! m E3 l# z0 b

Table1->TableName="maindb.dbf";

+ S' J- W/ ^1 f7 z# [% T3 A$ u9 `

try{

Table1->Active=true;

, s k+ ]* `& J$ \: O7 ~* e0 K9 b; _

}

catch(...)

* |/ V2 @( n! c7 r# J

{

; r$ m, s; [2 l) N

//......

. C" f- `# r d" s4 W' x

}

* i! U3 P7 C7 @# N s

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

: U$ {. X6 _: S! e2 Z5 u

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

B.自定义异常处理窗口

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

+ B& U* k: e$ l+ X, e

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

$ a/ k+ ]0 k9 _6 l2 x: u% m

void __fastcall TForm1::FormCreate(TObject *Sender)

, t6 j2 ~- s2 ?9 z+ t( B

{

/ t, e# R& [5 N( D

Application->OnException = HandleException;

}

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

3 c$ M- C3 n" X1 T: x1 _, l

*E)

{

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

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

}

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

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

3 w3 u0 \ W1 p& R) E( \

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

用程序在空闲进处理.

5 K) A, M+ Q) v) o: j! t

void __fastcall TForm1::FormCreate(TObject *Sender)

{

Application->OnIdle = updatestatus;

}

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

# E$ I/ B& Z2 g$ P' q R* k

{

8 D: D5 {% p+ U" ~3 l: F8 {

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

}

$ h' e5 M) _) ]* I

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

/ ~! W* B9 H7 n

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

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

. u0 H9 {9 X/ c/ z G

即可.

$ B/ f4 c2 Y# F; \6 }" H

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

, o. v; Q/ E' E/ I- }

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

- w+ r g' M+ l6 | D4 Z( _! ]

Application->rocessMessages();

/ a! g" v: O/ F& U2 G. h

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

. e+ X9 O; s0 G1 Z! n