TApplication类的简要说明

韩冰

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

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

4 O& s, T) s- F- H! t, H

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

: A2 j% ~- V' [. H) F& z: [+ K w

lcation的代码.

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

。

7 D, J; n$ ~. A/ d

一>属性:

% c8 ]. M% ^7 E, Z

1.bool Active:

, Z7 p8 L* P1 Z, n8 k

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

rue,否则为false

' n0 w& c& f! C6 G1 i) R

2.AnsiString ExeName:

. F7 L7 Q* A j9 R4 D! j9 I

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

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

的文件名部分

+ g& q1 ^, ` e

3.HWND Handle:

, b7 z( W' C5 c7 m" L0 u b

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

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

8 p1 B2 k# i; S+ @1 x& Z

4.TColor HintColor:

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

% J# h/ m; b1 Y0 k

5.int HintHidePause:

N" s0 ]5 ]7 l' Y4 g/ Z

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

3 W) c+ R D. Z2 W

6.int HintPause:

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

0ms

7.int HintShortPause:

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

0 a/ ?" {+ c2 ^: K0 B; |

8.TIcon Icon:

9 t% k% o1 T, @

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

) f2 o5 M" r3 I" W3 Q9 B' ~* o

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

$ ^5 ^8 p3 ], U8 H! I9 v9 H

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

9.TForm MainForm:

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

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

3 T- m, u4 o! q9 L& I

10.AnsiString Hint:

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

11.bool ShowHint：

! p& ~+ H7 |" a8 [

是否显示提示

8 H" ]" g% n2 m5 F; e! G" Z

12.AnsiString Title:

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

o% R6 j/ R" c$ `# o7 x

13.bool ShowMainForm;

# a5 o/ M( ?8 Q, ?( B8 r

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

0 x: E' K* w! f. x- p, d3 f

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

14.bool Terminated;

- f: p+ z) M5 j$ Q* o

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

二>方法:

" { y2 k2 b4 s I N& y

1.void BringToFront():

3 U: Y0 j+ D, _* v$ O# @

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

口之前.

3 _- B! u# I S

Applcation->BringToFront();

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

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

, E" s3 z. ]6 C

MessageBox函数.

0 u4 s0 r- I; P. d6 q" x5 J; _

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

caption:对话框标题

9 i# B6 [* |9 r4 A5 ?

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

& t" [, K6 b/ e3 H A4 i$ e

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

MB_OK:显示一个OK按钮

MB_YESN显示二个按钮:Yes或No

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

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

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

缺省按钮:

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

# F( ^4 l( C; n# D9 j( i* T) r4 H

按钮.缺省为MB_DEFBUTTON1

图标:

MB_ICONSTOP:显示一个红色X图标

2 y1 h y7 w' f, ~

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

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

0 }4 V7 n/ Q) h( `0 {' d& K, F

返回值:

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

6 b# z# ?! T% O3 ~! R# E

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

NQUESTION)==IDYES)

8 d& J, S4 p1 f4 @

{

Close();

}

3.void Minimize()

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

8 z: p( @' V/ { ?

4.void Restore()

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

5.void Terminate()

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

6.void ProcessMessages(void)

" g/ y% s# g6 ~- [6 |

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

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

, ]' g% b" A& ^- ~; ^

返回值:

按钮.缺省为MB_DEFBUTTON1

9 u& b8 A1 m$ d- i

图标:

# J1 u/ J3 n6 {+ y* k7 v# o! \

MB_ICONSTOP:显示一个红色X图标

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

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

( v) F1 E( V" v7 ^$ V! U

返回值:

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

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

NQUESTION)==IDYES)

{

Close();

}

1 z$ v" a7 ^2 I$ D# h( ^7 A

3.void Minimize()

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

4.void Restore()

2 _4 P f4 a4 @) o& N# ~

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

8 i! c* B3 F8 S# m; P# L ~

5.void Terminate()

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

' U0 ~! r7 H0 b/ w+ a

6.void ProcessMessages(void)

; U! }* W. B1 c+ r" X9 [4 S

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

2 f% b; @" U, ]6 ^" P) l& S$ c5 x. _. v

中的消息

三>事件:

1 L8 `( p% E( T g' `1 g1 W% H

1.OnHint

! w: R3 H: Z' A) C, J

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

示显示

- M' f; Z4 u# M) }1 I

例:

void __fastcall TForm1::FormCreate(TObject *Sender)

{

+ S# d, b( s+ z" O) V

Application->OnHint = DisplayHint;

}

/ P* s' ?8 }+ D) f

void __fastcall TForm1:isplayHint(TObject *Sender)

{

2 v5 J* s4 d5 I- i, J( x/ {. h

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

: `$ D7 z4 D$ G! Y- L+ C# B

}

% `3 P$ h% [; u0 P3 e+ T

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

2.OnIdle:

2 m6 l; Y! e0 x$ b, Z0 g- E/ q8 [( \

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

的任务.

! o( E. W2 z+ Z( f R

3.OnException:

: w# D3 l; ?7 ]; l4 |

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

9 L8 }8 ?; c1 H

4.OnMinimize

( }9 Q3 r! `# m5 g( K

应用程序最小化时的事件

5.OnActivate:

$ K6 D3 `$ A# a- q: o2 _5 w

应用程序被激活时的事件

6.OnDeactivate

应用程序失去焦点的事件

- L9 J, I9 m2 n* h* t* @

7.OnMessage

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

3 X5 M+ N1 |2 o

8.OnRestore

# K/ B# d" b% ]. F' R

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

TApplication应用小技巧:

+ _ X, m$ J$ e+ L' d' e

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

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

4 T ]' N5 V8 k% J

AnsiString filepath;

- h, @( X( H+ A0 M* s

filepath=ExtractFilePath(Applcation->ExeName);

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

: _* _. h% |2 t9 _( ?- Q. g% F

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

, w$ _' D" j6 }

Table1->DatabaseName=filepath+"data";

Table1->TableName="maindb.dbf";

; n% S+ @4 z. H- L1 G8 a

try{

3 z4 d! f0 A0 j5 Z3 [9 Y* b

Table1->Active=true;

}

8 [) \/ b, f1 l1 Q8 ]/ Q

catch(...)

{

//......

}

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

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

B.自定义异常处理窗口

) V, I' Y j9 h( v: e

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

9 g" b' w2 j- `

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

. W7 f9 x( q/ W6 ?, U+ E5 h

void __fastcall TForm1::FormCreate(TObject *Sender)

3 |* W5 ^! F8 z1 ~9 ^( s

{

1 _& ~) [0 t( k- z, N

Application->OnException = HandleException;

}

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

*E)

{

( u. r) _; H( B I+ t1 _& ^. e% n; N

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

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

}

! `7 q X/ J4 Z5 l$ @0 T

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

1 j$ B n8 @) V8 d3 s0 q3 g

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

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

) ~5 s( i w! R4 K* F$ D- H! f8 C# w

用程序在空闲进处理.

void __fastcall TForm1::FormCreate(TObject *Sender)

( L( x5 Y0 o, ?! o+ E0 Y( q) e3 w

{

Application->OnIdle = updatestatus;

}

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

{

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

5 J: t. y0 E: Y

}

& L, y4 i+ ]6 Y8 d

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

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

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

4 C. ]9 u. |1 o: H% a. n/ R

即可.

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

: W& Y& p% z2 N6 L' z

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

8 p) n0 \% q' v& j; }: s. [; n

Application->rocessMessages();

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