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

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".

　　ListingA和B包含了头文件和源代码以下列出。