TApplication类的简要说明

韩冰

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

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

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

# T2 \ F2 P5 L4 \. {3 B

lcation的代码.

4 o* m+ m6 M+ d" L8 g

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

。

% m6 ?# V) ~$ M @+ c, p& `% S- O9 V

一>属性:

1.bool Active:

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

1 U; e% H' T; `+ k' s4 Y. ?7 E

rue,否则为false

" Z% D4 d! e; G6 ]. B

2.AnsiString ExeName:

( r* ^5 Q' q- Y# ~9 E% ^: q

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

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

0 L6 \8 Y! h; Q# _) b' G

的文件名部分

: V; W+ b/ Z" k& Y

3.HWND Handle:

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

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

( }1 c* U: L! D- G- i

4.TColor HintColor:

" m& j0 w5 O, i* S# T# |( `

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

5.int HintHidePause:

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

6.int HintPause:

5 m: [: F- h' F! x. l1 L: ?

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

0ms

/ m+ w2 t+ d4 ]2 F" w

7.int HintShortPause:

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

8.TIcon Icon:

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

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

+ C9 l, B6 n( {, v% _( [% S

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

9.TForm MainForm:

' G. `* {, c! w( N) [0 e. F2 U

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

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

10.AnsiString Hint:

2 o r2 f+ z( U

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

11.bool ShowHint：

是否显示提示

12.AnsiString Title:

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

13.bool ShowMainForm;

3 X: K: B3 y7 n7 d$ V: g( V; S% ?) U

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

) u" C; s: ^ b* h$ h

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

14.bool Terminated;

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

3 H. P, n: n! R9 I

二>方法:

4 U5 b# O! ]5 k4 L4 _

1.void BringToFront():

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

! h' s# a8 Q4 Y T+ E. o

口之前.

Applcation->BringToFront();

$ @( Z5 ?" h, a0 R" C

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

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

MessageBox函数.

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

caption:对话框标题

5 O7 s. ~) u2 b9 ?

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

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

/ V d3 q/ J2 ] @

MB_OK:显示一个OK按钮

MB_YESN显示二个按钮:Yes或No

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

/ K7 u0 D* R$ h. y1 y* k) b

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

# r: q* D( C. K6 E4 T& q

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

缺省按钮:

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

* a& Z, b5 B5 R5 T' ?

按钮.缺省为MB_DEFBUTTON1

图标:

MB_ICONSTOP:显示一个红色X图标

" ^) l! B$ @) W$ l1 P

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

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

8 J1 I$ r0 I: v' Z, D' t: g

返回值:

, x" y# x Y2 S2 N- Z3 o n

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

: H9 c0 x% t% w) ]# o" g! Z1 g2 t) m

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

( P+ o6 p6 T1 A# P" m

NQUESTION)==IDYES)

{

Close();

7 H" x) W- U0 ]0 r) J( Z. ?

}

3.void Minimize()

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

5 C! y4 \! s( Q; `4 [ V+ k6 k; I& Y

4.void Restore()

* l' {! Q6 y4 `( w- B

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

. |% M6 Z2 p! Q# w. d2 H% v

5.void Terminate()

2 K" A0 t, C- m J3 X) h" V9 h

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

6.void ProcessMessages(void)

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

4 O6 o; N2 u& @

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

5 L$ C: |1 c6 ^ T0 }5 j+ O/ R# X

返回值:

) _; c# {, t7 F% t' W

按钮.缺省为MB_DEFBUTTON1

/ c4 w9 H: C4 w$ q/ |9 R" D

图标:

MB_ICONSTOP:显示一个红色X图标

3 \# c# N" B0 `$ L2 v7 U

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

) g, [! ^3 B' ~5 i. R: ]* T% k" I

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

返回值:

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

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

NQUESTION)==IDYES)

{

Close();

}

3.void Minimize()

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

4.void Restore()

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

0 e/ L! L! T! q2 g

5.void Terminate()

# Q1 h6 W$ U# z2 B7 Q

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

6.void ProcessMessages(void)

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

中的消息

三>事件:

8 `4 t+ N) ~, Z; }( Q& |) S

1.OnHint

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

示显示

* X! J& y2 [2 T7 V

例:

t0 x3 L) W2 W2 ^0 O* H* j0 C* A

void __fastcall TForm1::FormCreate(TObject *Sender)

{

+ V H6 x4 a/ N9 a6 K/ @0 r8 q

Application->OnHint = DisplayHint;

9 F/ [9 v k% G% s3 q

}

" S1 H: j: i9 t# O

void __fastcall TForm1:isplayHint(TObject *Sender)

9 U; s4 G/ ~$ f

{

0 {- B4 N( ?" l6 Z& t

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

- G' S" ]# _7 v5 {. I+ }% \

}

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

- v) K. o* O' Q) o+ }

2.OnIdle:

4 l4 d: p% Z. C0 w

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

的任务.

' p+ {+ y4 _7 S+ M* @# X; g

3.OnException:

2 F3 N: g: u6 m0 O6 h

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

2 j$ `( R- \4 B: s, y

4.OnMinimize

" T: f- p; w: b; H% e

应用程序最小化时的事件

8 s, h x/ L* ?

5.OnActivate:

/ N' }5 J4 i" A+ a; @

应用程序被激活时的事件

& M1 L- B% e/ F- v/ l% K

6.OnDeactivate

应用程序失去焦点的事件

7.OnMessage

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

8.OnRestore

2 ]1 W5 F, S: e6 {! e$ b& `8 n* ?

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

! ]' t- X' w, M8 F$ h

TApplication应用小技巧:

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

/ s& _2 U6 l$ F

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

. h+ C$ x$ p2 a2 X( f

AnsiString filepath;

filepath=ExtractFilePath(Applcation->ExeName);

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

+ Q: e& \! i! ?7 t/ i3 Q* ~

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

Table1->DatabaseName=filepath+"data";

# B* I0 p" ^* B4 a9 [% F! v0 Y

Table1->TableName="maindb.dbf";

try{

Table1->Active=true;

}

catch(...)

{

# Y- `; w% J: B: ]; ?& |1 a2 V+ F

//......

8 [' E" ]( T# ~* v5 B3 J

}

* b! R, h- M* o0 f

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

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

4 A0 r; }! U* D$ o

B.自定义异常处理窗口

, w2 k- X% y, ^) ]7 p5 C

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

' O; Y% O/ y) V# A

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

void __fastcall TForm1::FormCreate(TObject *Sender)

{

Application->OnException = HandleException;

2 t" Z m7 O- t

}

4 A) q4 n, c n8 L5 `* }3 R

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

*E)

/ ^2 c( c' Q3 s$ ^

{

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

2 ~* Y- w4 L7 q0 y: w5 z0 \5 F; e/ Z

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

2 C. O0 @7 d. _

}

2 n) J4 [* E3 S" D) ~

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

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

: G# O, `. s2 w/ x+ N

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

用程序在空闲进处理.

3 x8 C* w0 {7 d" o# X1 K- a8 O

void __fastcall TForm1::FormCreate(TObject *Sender)

{

: J$ d- ?! C% d1 F% L9 a- m

Application->OnIdle = updatestatus;

}

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

{

- U$ ]( X' d( Y2 r! r

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

}

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

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

, u2 o0 v x' ~2 c! K4 ^' B* H/ n0 K2 E4 [

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

即可.

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

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

Application->rocessMessages();

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