BCB实现MDI程序背景图

韩冰

<>BCB实现MDI程序背景图 </P>
<>（中国计算机报-金君飞　2001年11月08日 10:34） </P>
<>在开发软件时，总希望软件界面越漂亮越好，我们在C++ Builder的SDI程序中比较容易 </P>
<>实现漂亮的软件界面，但在MDI程序中，由于Windows的MDI软件的开发隐藏了许多技术细 </P>
<>节，用SDI程序的方法，就不能实现了。下面笔者将详细讲述如何实现MDI程序背景图。 </P>
<>  </P>
<>在MDI程序中是由两个窗口构成的，一个MDI主窗口和一个客户窗口。客户窗口覆盖了主 </P>
4 }1 j; R. z9 m, N! |<>窗口的客户区，并提供大量的MDI支持。在C++ Builder的MDI 的主窗口中提供了一个Cl </P>
. t4 J' A% p  h; v* g$ n<>ientHandle的客户窗口句柄，我们就是利用这个句柄来实现位图的显示。我们知道，在 </P>
<>Windows的窗口中绘置位图，为使位图能够不断地刷新，必须响应WM_PAINT和WM_ERASEB </P>
/ T" Z3 |! U5 O: Z1 o<>KGND消息。我们可以利用钩子函数（钩子是Windows系统中一种特殊的消息处理机制，可 </P>
<>以监视系统或进程中的各种事件消息，截获发往目标窗口的消息并进行处理）。截住Wi </P>
$ E7 X) `$ a: a6 \<>ndows系统发送给MDI客户窗口的WM_PAINT和WM_ERASEBKGND消息，从而实现客户窗口的刷 </P>
4 Y3 x4 l) f4 H( D# U1 s<>新和重绘。我们可以在系统中安装自定义的消息钩子，对发往客户窗口的消息进行过滤 </P>
<>，只处理WM_PAINT和WM_ERASEBKGND,以实现我们的目标。 </P>
<>编写钩子函数 </P>
5 U/ c  [6 G6 B' ?/ J6 Q$ s<>编写Windows钩子函数分为三步：定义钩子、安装钩子和 对 钩子。 </P>
) Y- H' {! B# D<>定义钩子函数 </P>
7 w& Q. `$ l3 K<>钩子函数是一种特殊的回调函数，不同事件的钩子其函数头是不一样，本次用到的钩子 </P>
' K  f; c9 p' x4 i<>函数如下所示： </P>
3 c4 ^7 Y6 Z2 r<>LRESULT CALLBACK GetMsgProc(int nCode, WPARAM wParam, LPARAM lParam) </P>
<>参数nCode的值表示本钩子函数是否必须处理该消息， wParam表明这次传递的消息是否 </P>
9 T% u* H! Z( W' F5 [6 w7 w* q$ @' C3 f<>已从Windows消息队列中删除， lParam参数用来传送消息。 </P>
<>在钩子函数中，必须将系统发送的消息继续回送给系统以使其它程序可以继续使用该消 </P>
<>息，该函数为: </P>
+ s6 M: c5 m/ m& k<>LRESULT CallNextHookEx(HHOOK hhk, int nCode, WPARAM wParam, LPARAM lParam ) </P>
<>参数hhk是安装钩子函数时安装函数返回的句柄，nCode、wParm和lParm参数是系统传给 </P>
<>钩子函数的值。 </P>
<>安装钩子函数 </P>
<>定义完钩子函数后，必须将该钩子安装到Windows系统中才能生效，安装钩子的函数为： </P>
- w( ^: F% i$ A& ~) i<P>  </P>
<P>HHOOK SetWindowsHookEx(int idHook, HOOKPROC lpfn, HINSTANCE hMod, DWORD dwTh </P>
<P>readId) </P>
<P>参数idHook表示待安装的钩子函数类型，可以是键盘、鼠标或外壳等钩子，lpfn表示钩 </P>
6 |- C7 S3 a, P  |, F" k<P>子函数的地址， hMod表示是全局钩子还是局部钩子，如果是全局钩子则钩子函数必须在 </P>
/ E0 z) K& z5 ~7 y<P>DLL文件中，dwThreadId表示钩子将要起作用的程序ID。 </P>
( R% n1 _/ w3 }# m* W5 J! }3 J8 `( p/ l<P> 对 钩子函数 </P>
" z" B) e$ Z3 b1 r  z<P>钩子函数使用完后必须卸载，这是一个良好 </P>
4 u: a( q' ~  m) `<P>程序员必备的优良品质。 对 钩子的函数为： </P>
  m4 X" z0 d) @8 M) M  E<P>BOOL UnhookWindowsHookEx(HHOOK hhk) </P>
) d3 F' E8 @6 d$ a& X<P>参数hhk表示待卸载的钩子句柄。 </P>
' K, d% K* p2 \; G2 K<P>详细代码 </P>
<P>根据上面所述，下面介绍详细代码： </P>
<P>//定义全局变量 </P>
<P>HHOOK hMsgHook; </P>
8 H* m9 u" A: k1 k# N' x2 m0 O<P>//钩子句柄 </P>
  }; `/ h5 R) z% I$ {" s4 y0 x<P>int iClientHeight, iClientWidth; </P>
<P>//待画的客户区高和宽 </P>
  Z; \% K3 n2 g) j- Q3 ?<P>Graphics::TBitmap ?Face; </P>
- C9 g( t' X0 z  _<P>// 从文件调用位图的控件 </P>
( l# g; N* ^: w<P>HBITMAP hFaceBitmap; </P>
* s/ j7 f6 Q# |% ]$ a( |2 F<P>//位图句柄 </P>
<P>HWND hClientHandle, hMdiHandle; </P>
, t! }9 D+ f5 b$ P, o6 _6 B- j<P>//MDI主窗口和MDI客户窗口句柄 </P>
<P>LRESULT CALLBACK GetMsgProc(int nCode, WPARAM wParam, LPARAM lParam ) ; </P>
<P>void __fastcall TMainForm::FormPaint(TObject ?Sender) </P>
+ s8 _1 m( n1 G3 K, t' E<P>{ iClientHeight = ClientHeight; </P>
- L! F7 z$ \6 L5 i<P>iClientWidth = ClientWidth; </P>
<P>} //设置系统时， 在状态条上显示 </P>
<P>void __fastcall TMainForm::FormShow(TObject ?Sender) </P>
<P>{ //从文件中调入位图 </P>
<P>Face = new Graphics::TBitmap(); </P>
<P>Face-＞LoadFromFile(“d:\\temp\\face.bmp”); </P>
<P>hFaceBitmap = Face-＞Handle; </P>
, l7 f5 I2 q$ n$ X6 u<P>//保存位图句柄 </P>
<P>hClientHandle = ClientHandle; </P>
<P>//保存窗口句柄 </P>
! G" d6 n! M$ L( O<P>hMdiHandle = Handle; </P>
<P>//保存MDI主窗口句柄 </P>
& Z5 O$ E+ ^- ]<P>//安装截取程序消息的钩子函数 </P>
% x1 R8 C% T* y# E3 ?8 J<P>hMsgHook = SetWindowsHookEx(WH_GETMESSAGE, (HOOKPROC)GetMsgProc, NULL, GetCu </P>
# A# U5 a2 h& i; n# M- C. {/ I) o<P>rrentThreadId() ); </P>
" O5 M. K0 c! m5 ?<P>} //钩子函数，处理系统WM_PAINT和WM_ERASEBKGND消息 </P>
<P>LRESULT CALLBACK GetMsgProc(int nCode, WPARAM wParam, LPARAM lParam ) </P>
<P>{ LRESULT lReturn=0; </P>
<P>MSG ?cwMessage; </P>
<P>cwMessage = (MSG?)lParam; </P>
<P>if ( cwMessage-＞hwnd == hClientHandle || cwMessage-＞hwnd == hMdiHandle) </P>
<P>//是发送给子窗口的消息则处理 </P>
<P>{if ( cwMessage-＞message == WM_PAINT || cwMessage-＞message == WM_ERASEBKGN </P>
4 L. g7 ~2 X/ K4 ~3 Z<P>D ) </P>
% S/ J' c$ t; O0 A, k<P>{ //重画用户窗口 </P>
<P>DrawBitmap(hClientHandle, hFaceBitmap, iClientHeight, iClientWidth); </P>
6 p8 l% ^/ ]0 P/ D: D; x5 e<P>} </P>
+ w2 G- ~; a1 W5 z+ h+ E0 ]<P>} </P>
2 [! T6 {% s& I3 m' h' ?, k<P>if ( hMsgHook != NULL) //将消息继续下传 </P>
3 a  U( q) j. Z  k" A<P>lReturn = CallNextHookEx(hMsgHook, nCode, wParam, lParam ); </P>
<P>return lReturn; </P>
<P>} // 对 钩子函数 </P>
' |: g# Z( N, y- ~<P>void __fastcall TMainForm::FormClose(TObject ?Sender, TCloseAction &amp;&amp;Action </P>
<P>) </P>
<P>{ if ( hMsgHook != NULL) </P>
0 E* C9 F7 Q" N  y, }6 l" t; K<P>UnhookWindowsHookEx( hMsgHook ); </P>
* M$ i* [: m$ g/ ]<P>if ( Face != NULL ) </P>
<P>delete Face; </P>
<P>} </P>
<P>//在指定的窗口中，画位图，填充整个用户窗口 </P>
" E9 S8 ]* U) S' O0 O; ]<P>//Ture为绘制成功，false为绘制失败 </P>
- X0 b+ y2 H& G1 Z<P>BOOL DrawBitmap(HWND Handle, HBITMAP hBitmap, int iClientHeight, int iClient </P>
<P>Width) </P>
8 T" T3 x: E& s' D1 M<P>{ if ( hBitmap == NULL ) </P>
<P>return false; </P>
<P>BITMAP b; </P>
<P>int iBitmapH, iBitmapW; </P>
9 [* s+ `: j$ \" K7 w3 H' [<P>GetObject( hBitmap, sizeof( BITMAP), &amp;&amp;b); </P>
+ }5 R: l5 i7 x7 ]: N& t  u<P>iBitmapH = b.bmHeight; </P>
; r9 N/ I3 O* Z) L  [- o8 S<P>iBitmapW = b.bmWidth; </P>
<P>int x, y; </P>
# D5 I  Z' X' \2 h: I( m: _<P>HDC hClientDC, hMemDC; </P>
<P>hClientDC = GetDC(Handle); </P>
<P>if ( hClientDC == NULL ) </P>
<P>return false; </P>
7 |7 ]: j; m* j<P>hMemDC = CreateCompatibleDC( hClientDC ); </P>
<P>if ( hMemDC == NULL ) </P>
& u  e/ D" b/ Q* v+ v# o! y6 b<P>{ DeleteDC( hClientDC ); </P>
% D% y0 S8 M$ K6 s+ V* m3 I: W<P>return false; </P>
<P>} </P>
<P>SelectObject( hMemDC, hBitmap ); </P>
<P>x = 0; </P>
<P>while ( x ＜ iClientWidth ) </P>
<P>{ y = 0; </P>
<P>while ( y ＜ iClientHeight ) </P>
- X  q' U5 d  x- D2 T: o<P>{ClientCanvas-＞Draw(x, y, Face); </P>
. S* J' w, L' F+ E( ?<P>BitBlt( hClientDC, x, y,iBitmapW, iBitmapH, hMemDC, 0, 0,SRCCOPY ); </P>
7 R& S& @3 V9 f<P>y = y + iBitmapH; } </P>
<P>x = x + iBitmapW; } </P>
' f, b. X) Q) X/ r' |7 e<P>DeleteDC( hMemDC ); </P>
<P>DeleteDC( hClientDC ); </P>
& n9 d0 }  q9 Z% [
: o7 ]+ x( p/ f4 R6 O* W7 c: T<P>return true; } </P>
  V! _4 {$ D" q9 M  _<P>将上述C++ Builder代码片段加入用户的MDI软件中即可实现任意的MDI程序背景图 </P>
<P>  </P>