> 一个非可视的组件必须对Windows操作系统或用户定义的消息作出响应。然而,由于一个非可视组件没有窗口,因此它也没有窗口句柄,自然它也不能接收到消息,为了解决这一问题,我们的思路是创建一个隐藏的窗口,使非可视组件能够接收到消息。 </P>$ p6 R, S7 V+ l; U; S& E
> 为了给你的非可视组件创建一个隐藏的窗口,需要有以下: </P>
> 1.一个私有变量型(Private Variable)的HWnd来取得窗口句柄。 </P>5 ^( h( \, L5 S2 h8 G9 F; Y
> 2.一个用来捕捉窗口发送给组件的函数(a WndProc)。 </P>/ _, K$ P# L, I; W7 Q5 p3 p
> 3.对AllcolateHwnd的调用使之创建窗口句柄并设置WndProc。 </P>
> 为了清楚的解释上述思路和展示创建过程,下面我们将以一个具体的实例来说明。
> HWnd FHandle; : d4 i$ t7 ~0 ^+ `' H" z
> 第一行声明了一个调用Fhandle的HWnd变量,这个变量将用于窗口创建后捕获窗口句柄。第二行声明了一个用于接收消息的WndProc函数。这个函数的声明必须加以标识,以便限定它是一个WndProc,然后在类声明Public(公有)部分构造以下声明: </P>
> Viod DoIt( ); </P>
> 这个公有函数将被我们用来测试组件,类声明应如下: </P>
> class PACKAGE TTest : public </P>
> TComponent - `2 o# ]9 ]2 u, g* w
> HWnd FHandle;
> protected: </P>2 b: f; V7 t- @( p" a: _
> public: </P>1 S9 u8 ?, @1 v* b" e
> —fastcall TTest(TComponent* Owner); </P>
> void DoIt( ); & W: s7 w6 E/ e6 _, X0 v+ @& w. [4 F
> }; </P>
> 现在切换到组件的代码单元,将下面一行加入到单元的顶部(在函数上也许是不错的地方) </P>3 ?6 p# j/ }; {- u3 C
> #define MY—Message.WM_USER+1 </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>
> } </P>
> 无论何时Windows发送消息给组件,Windows都会调用这个函数。这部分代码完成了两件事。首先,它检查被接收的消息是否是我们用户自定义的消息。如果是,一个消息框将被显示,你可以看到实际上我们接收到的消息。其次,这段代码传送了系统(或VCL)处理过程中的消息,try/catch块用来保证,如果异常出现,它将成为缺省风格下的句柄。 </P>
> 概括地说,WndProc函数在为缺省句柄传递所有其他消息,监控了所有客户消息。现在我们创建DoIt函数,完成我们的组件,加入我们创建DoIt函数,完成我们的组件,加入代码: </P>
oIt() </P># i6 Y6 |" T# @! y. x% _2 w' i| 欢迎光临 数学建模社区-数学中国 (http://www.madio.net/) | Powered by Discuz! X2.5 |