> 一个非可视的组件必须对Windows操作系统或用户定义的消息作出响应。然而,由于一个非可视组件没有窗口,因此它也没有窗口句柄,自然它也不能接收到消息,为了解决这一问题,我们的思路是创建一个隐藏的窗口,使非可视组件能够接收到消息。 </P>
> 为了给你的非可视组件创建一个隐藏的窗口,需要有以下: </P>
> 1.一个私有变量型(Private Variable)的HWnd来取得窗口句柄。 </P>
> 2.一个用来捕捉窗口发送给组件的函数(a WndProc)。 </P>
> 3.对AllcolateHwnd的调用使之创建窗口句柄并设置WndProc。 </P>
> 为了清楚的解释上述思路和展示创建过程,下面我们将以一个具体的实例来说明。 8 g* j% x6 p# `& j) J2 \) w
> HWnd FHandle; 6 W, K ~8 c9 X( f: E; N
> 第一行声明了一个调用Fhandle的HWnd变量,这个变量将用于窗口创建后捕获窗口句柄。第二行声明了一个用于接收消息的WndProc函数。这个函数的声明必须加以标识,以便限定它是一个WndProc,然后在类声明Public(公有)部分构造以下声明: </P>5 V2 ^: L3 d' V4 m2 z
> Viod DoIt( ); </P>
> 这个公有函数将被我们用来测试组件,类声明应如下: </P>; ~4 ?) T+ z7 D2 ~9 }- u3 a& z& d
> class PACKAGE TTest : public </P>
> TComponent 4 v5 [" {) p# v2 H* Z8 F
> HWnd FHandle; 1 F. f. o# _% \6 D1 e: K7 |
> protected: </P>
> public: </P>+ _0 s# ]% m+ i8 m! H! `8 |
> —fastcall TTest(TComponent* Owner); </P>3 ^; g* ?% j1 @. Q/ s- s' y) u
> void DoIt( );
> }; </P>
> 现在切换到组件的代码单元,将下面一行加入到单元的顶部(在函数上也许是不错的地方) </P>! j& {9 X W& O( ~4 k j- G
> #define MY—Message.WM_USER+1 </P>! a# x; E# b+ Z4 }2 P
> 这一行声明了一个在DoIt函数被调用时,组件将发送给它自己的用户自定义消息。此时我们必须为组件分配一个窗口句柄。这个句柄将提供一个隐藏的窗口使我们可以捕捉组件中的消息。找到组件构造代码,加入下面代码: </P>
> —fastcall Test::Test(TComponent* Owner): TComponent(Owner)
> 好,重要的一步已完成,AllocateHWnd函数创建了一个隐藏窗口并且返回它的句柄,注意这里我们为了使Windows知道哪里发来了消息,传递WndProc的地址; </P>
> 现在我们来创建WndProc的函数部分。在源文件中加入: </P>
> void—fastcall TTest::WndProc(TMessage& Msg)
> Application-〉HandleException(this); </P>
> } </P>3 m) I0 T* h8 w! V) @' C
> } </P>
> 无论何时Windows发送消息给组件,Windows都会调用这个函数。这部分代码完成了两件事。首先,它检查被接收的消息是否是我们用户自定义的消息。如果是,一个消息框将被显示,你可以看到实际上我们接收到的消息。其次,这段代码传送了系统(或VCL)处理过程中的消息,try/catch块用来保证,如果异常出现,它将成为缺省风格下的句柄。 </P>) F6 d* c* t9 d1 `$ }3 u4 K
> 概括地说,WndProc函数在为缺省句柄传递所有其他消息,监控了所有客户消息。现在我们创建DoIt函数,完成我们的组件,加入我们创建DoIt函数,完成我们的组件,加入代码: </P>
oIt() </P>| 欢迎光临 数学建模社区-数学中国 (http://www.madio.net/) | Powered by Discuz! X2.5 |