> 一个非可视的组件必须对Windows操作系统或用户定义的消息作出响应。然而,由于一个非可视组件没有窗口,因此它也没有窗口句柄,自然它也不能接收到消息,为了解决这一问题,我们的思路是创建一个隐藏的窗口,使非可视组件能够接收到消息。 </P>! T9 t2 `. A& ?$ V9 w0 ^, U
> 为了给你的非可视组件创建一个隐藏的窗口,需要有以下: </P>
> 1.一个私有变量型(Private Variable)的HWnd来取得窗口句柄。 </P>
> 2.一个用来捕捉窗口发送给组件的函数(a WndProc)。 </P> G' L7 K8 m: ^, m i. ?; Q
> 3.对AllcolateHwnd的调用使之创建窗口句柄并设置WndProc。 </P>
> 为了清楚的解释上述思路和展示创建过程,下面我们将以一个具体的实例来说明。
> HWnd FHandle;
> 第一行声明了一个调用Fhandle的HWnd变量,这个变量将用于窗口创建后捕获窗口句柄。第二行声明了一个用于接收消息的WndProc函数。这个函数的声明必须加以标识,以便限定它是一个WndProc,然后在类声明Public(公有)部分构造以下声明: </P>
> Viod DoIt( ); </P>/ p+ S0 R+ q/ }+ J: I6 m; p
> 这个公有函数将被我们用来测试组件,类声明应如下: </P>+ Q* q& D! Y2 I0 F0 g1 C; X
> class PACKAGE TTest : public </P>
> TComponent 0 I; N" s$ j6 H3 r. n. \
> HWnd FHandle; + O% D$ w4 Y) f1 x7 g
> protected: </P>3 D5 w8 g# M+ {& g8 J" j
> public: </P>
> —fastcall TTest(TComponent* Owner); </P>
> void DoIt( );
> }; </P># M1 I- ?, G0 m! [; {, z
> 现在切换到组件的代码单元,将下面一行加入到单元的顶部(在函数上也许是不错的地方) </P># [- w4 F3 B6 r l$ ^6 d. [- f
> #define MY—Message.WM_USER+1 </P>
> 这一行声明了一个在DoIt函数被调用时,组件将发送给它自己的用户自定义消息。此时我们必须为组件分配一个窗口句柄。这个句柄将提供一个隐藏的窗口使我们可以捕捉组件中的消息。找到组件构造代码,加入下面代码: </P>
> —fastcall Test::Test(TComponent* Owner): TComponent(Owner) c5 w! o9 @0 ^. \) l
> 好,重要的一步已完成,AllocateHWnd函数创建了一个隐藏窗口并且返回它的句柄,注意这里我们为了使Windows知道哪里发来了消息,传递WndProc的地址; </P>' O' Y4 ]' c& @$ f
> 现在我们来创建WndProc的函数部分。在源文件中加入: </P>
> void—fastcall TTest::WndProc(TMessage& Msg) 3 X% i, L* A; S* G+ y- [
> Application-〉HandleException(this); </P>. b5 R/ V8 d% a4 J
> } </P>
> } </P>/ @4 F4 R8 ^# ?
> 无论何时Windows发送消息给组件,Windows都会调用这个函数。这部分代码完成了两件事。首先,它检查被接收的消息是否是我们用户自定义的消息。如果是,一个消息框将被显示,你可以看到实际上我们接收到的消息。其次,这段代码传送了系统(或VCL)处理过程中的消息,try/catch块用来保证,如果异常出现,它将成为缺省风格下的句柄。 </P>
> 概括地说,WndProc函数在为缺省句柄传递所有其他消息,监控了所有客户消息。现在我们创建DoIt函数,完成我们的组件,加入我们创建DoIt函数,完成我们的组件,加入代码: </P>
oIt() </P>' L& |6 }, C6 E# q: I; m| 欢迎光临 数学建模社区-数学中国 (http://www.madio.net/) | Powered by Discuz! X2.5 |