CB非可视组件的消息处理技巧

一个非可视的组件必须对Windows操作系统或用户定义的消息作出响应。然而，由于一个非可视组件没有窗口，因此他也没有窗口句柄，自然他也不能接收到消息,为了解决这一问题,我们的思路是创建一个隐藏的窗口，使非可视组件能够接收到消息。
为了给您的非可视组件创建一个隐藏的窗口，需要有以下：
　1．一个私有变量型(Private Variable)的HWnd来取得窗口句柄。
　2．一个用来捕获窗口发送给组件的函数(a WndProc)。
　3．对AllcolateHwnd的调用使之创建窗口句柄并配置WndProc。
为了清楚的解释上述思路和展示创建过程，下面我们将以一个具体的实例来说明。
　　首先我们先创建一个新的组件，在C Builder中，选择FILE|NEW…双击组件图标显示一个新的组件对话框改变Ancestor Type为Tcomponent和Class name为Ttest并配置完毕。
　　然后，转换到新组件的头文档，在类的私有部分(private section)加入以下声明：
　　HWnd Fhandle;
　 void __fastcall WndProc(Tmessage &Msg);
第一行声明了一个调用Fhandle的HWnd变量，这个变量将用于窗口创建后捕获窗口句柄。

第二行声明了一个用于接收消息的WndProc函数。这个函数的声明必须加以标识，以便限定他是个WndProc,然后在类声明Public(公有)部分构造以下声明：
　　Viod DoIt( )；
　　这个公有函数将被我们用来测试组件，类声明应如下：
　　class PACKAGE Ttest:public Tcomponent
　　 {
　　 private:
　　 HWnd Fhandle;
　　 void __fastcall WndProc(Tmessage &Msg);
　　 protected:
　　 public:
　 　 __fastcall Ttest(Tcomponent *Owner);
　 　 void DoIt( );
　　 __published:
　　 };
　　现在转换到组件的代码单元，将下面一行加入到单元的顶部(在函数上也许是不错的地方)
　　#define MY__Message WM_USER 1
　　这一行声明了一个在DoIt函数被调用时，组件将发送给他自己的用户自定义消息。此时我们必须为组件分配一个窗口句柄。这个句柄将提供一个隐藏的窗口使我们能够捕获组件中的消息。找到组件构造代码，加入下面代码:
　　__fastcall Test::Test(Tcomponent *Owner): Tcomponent(Owner)
　　{
　　Fhandle=AllocateHWnd(WndProc);
　　}
　　好，重要的一步已完成，AllocateHWnd函数创建了一个隐藏窗口并且返回他的句柄，注意这里我们为了使Windows知道哪里发来了消息，传递WndProc的地址；
　　现在我们来创建WndProc的函数部分。在源文档中加入:
　　void __fastcall Ttest::WndProc(Tmessage &Msg)
　　{
　　 if (Msg.Msg == MY__MESSAGE)
　 MessageBox(0,"Got here!","Message",0);
　　 try

{
　　 Dispatch(&Msg);
　　 }
　　 catch (…)

{
　　 Application->HandleException(this);
　 }
　　}
　　无论何时Windows发送消息给组件，Windows都会调用这个函数。这部分代码完成了两件事。首先，他检查被接收的消息是否是我们用户自定义的消息。假如是，一个消息框将被显示，您能够看到实际上我们接收到的消息。其次，这段代码传送了系统(或VCL)处理过程中的消息，try/catch块用来确保，假如异常出现，他将成为缺省风格下的句柄。

　　概括地说，WndProc函数在为缺省句柄传递任何其他消息，监控了任何客户消息。现在我们创建DoIt函数，完成我们的组件，加入我们创建DoIt函数，完成我们的组件，加入代码：
　　void Ttest::DoIt()
{
　PostMessage(Fhandle, MY__MESSAGE, 0, 0);
　　}
　　这个函数发送一个消息组件的窗口句柄(记住，这个窗口句柄是以前存入到Fhandle数据成品中的)。现在我们已完成了创建组件选择，用SelectFile|ColseAll来保存我们的工作测试组件。
　　下一步将测试组件。假如您使用BCB3,那么您必须把组件加入到“包”(Packege)中，然后用Componet|install(能够使用DCLSTD35 Packege来快速测试)。再选择您刚存的TestBCB.Cpp,一旦您安装完成组件后，他将出现在组件板上。双击按钮，为按钮的OnClick事件创建以下代码：
　　 Test1-> DoIt( );
　　现在运行程式，当您点击按钮时，将看到一个消息框显示“Got here".
　　总结：一个能够响应Windows消息的非可视组件有许多用途。最显而易见的就是用来封装某些方面的WindowsAPI。例如：TAPI和WinSock发送消息给事件的指定用户。假如您写的组件封装了一个这样的API。您将需要捕获Windows发送的消息。而在您的组件中加入隐藏窗口将很好的帮您做到这一点。
　　以上程式在C BUILDER 3.0中调试通过。