> 一个非可视的组件必须对Windows操作系统或用户定义的消息作出响应。然而,由于一个非可视组件没有窗口,因此它也没有窗口句柄,自然它也不能接收到消息,为了解决这一问题,我们的思路是创建一个隐藏的窗口,使非可视组件能够接收到消息。 </P>; N5 R- @- l! W: l
> 为了给你的非可视组件创建一个隐藏的窗口,需要有以下: </P>% r$ f' `" G) F& T- c* Y( E: M
> 1.一个私有变量型(Private Variable)的HWnd来取得窗口句柄。 </P>7 x, Z7 i% j5 C5 M6 R* {
> 2.一个用来捕捉窗口发送给组件的函数(a WndProc)。 </P>
> 3.对AllcolateHwnd的调用使之创建窗口句柄并设置WndProc。 </P>* N4 z8 }- v- q5 S. v
> 为了清楚的解释上述思路和展示创建过程,下面我们将以一个具体的实例来说明。 7 N3 f3 f5 {( V9 z' ]
> HWnd FHandle;
> 第一行声明了一个调用Fhandle的HWnd变量,这个变量将用于窗口创建后捕获窗口句柄。第二行声明了一个用于接收消息的WndProc函数。这个函数的声明必须加以标识,以便限定它是一个WndProc,然后在类声明Public(公有)部分构造以下声明: </P>0 o% x3 V! t6 k: ^! U1 o9 B2 z
> Viod DoIt( ); </P>! \% S. C) a$ H1 G& s5 A
> 这个公有函数将被我们用来测试组件,类声明应如下: </P>6 }2 g. J" d& X$ r
> class PACKAGE TTest : public </P>
> TComponent
> HWnd FHandle; 3 d& ?! Y$ ?1 S9 k- U+ O2 _: G
> protected: </P>) X) v0 y* q! t" T: I6 P
> public: </P>* C* F' C& o5 s: F L( ^8 I3 Y
> —fastcall TTest(TComponent* Owner); </P>1 i6 P, W5 m8 e9 F3 `
> void DoIt( ); 0 t% k" g4 k+ U( z. c7 t% ?4 R
> }; </P>
> 现在切换到组件的代码单元,将下面一行加入到单元的顶部(在函数上也许是不错的地方) </P>- i1 ^" z! c: K$ j/ \* a/ ~
> #define MY—Message.WM_USER+1 </P>1 N7 h: X) m% j1 m( A
> 这一行声明了一个在DoIt函数被调用时,组件将发送给它自己的用户自定义消息。此时我们必须为组件分配一个窗口句柄。这个句柄将提供一个隐藏的窗口使我们可以捕捉组件中的消息。找到组件构造代码,加入下面代码: </P>( K7 G% }) X& [
> —fastcall Test::Test(TComponent* Owner): TComponent(Owner) ! J! X- y7 B: d% r2 Z& J
> 好,重要的一步已完成,AllocateHWnd函数创建了一个隐藏窗口并且返回它的句柄,注意这里我们为了使Windows知道哪里发来了消息,传递WndProc的地址; </P>
> 现在我们来创建WndProc的函数部分。在源文件中加入: </P>+ u a1 `2 s; `& h& D: d% U* P
> void—fastcall TTest::WndProc(TMessage& Msg)
> Application-〉HandleException(this); </P>
> } </P># j) N$ L$ r9 i% g2 h* g
> } </P>
> 无论何时Windows发送消息给组件,Windows都会调用这个函数。这部分代码完成了两件事。首先,它检查被接收的消息是否是我们用户自定义的消息。如果是,一个消息框将被显示,你可以看到实际上我们接收到的消息。其次,这段代码传送了系统(或VCL)处理过程中的消息,try/catch块用来保证,如果异常出现,它将成为缺省风格下的句柄。 </P>, L c6 z: H! y7 h# _
> 概括地说,WndProc函数在为缺省句柄传递所有其他消息,监控了所有客户消息。现在我们创建DoIt函数,完成我们的组件,加入我们创建DoIt函数,完成我们的组件,加入代码: </P>
oIt() </P>| 欢迎光临 数学建模社区-数学中国 (http://www.madio.net/) | Powered by Discuz! X2.5 |