问题：以TPageControl为例，程序中需要“鼠标左键双击”关闭某激活页[如腾讯浏览器]。
因该控件没有定义鼠标双击事件，只有自己为该控件添加消息映射。映射的消息为：
左键双击（WM_LBUTTONDBLCLK）。本文利用运行时间派生控件的方法实现，较自己
制作一个单独控件的方法来讲，这个更简单些。
// ---------单元头文件------------------------------------------------------
class TPageControlEx : public TPageControl
{ // TPageControl的公有派生类：增加了左键双击消息映射
protected:
void __fastcall OnLeftDbClick(TMessage &Msg);
BEGIN_MESSAGE_MAP
VCL_MESSAGE_HANDLER(WM_LBUTTONDBLCLK,TMessage,OnLeftDbClick)
END_MESSAGE_MAP(TPageControl)
public: // 内联构造:父类构造
inline __fastcall TPageControlEx(TComponent* Owner):TPageControl(Owner){ };
};
// -----------------------------------------------------------------
class TForm1 : public TForm
{
__published:
void __fastcall FormCreate(TObject *Sender);
private:
public:
__fastcall TForm1(TComponent* Owner);
TPageControlEx *PageControlEx;
};
// --------单元文件---------------------------------------------------------------
void __fastcall TPageControlEx::OnLeftDbClick(TMessage &Msg) // 派生类消息处理
{
AnsiString area=Form1->PageControlEx->ActivePage->Caption;
ShowMessage("收到左键双击消息\n双击区域："+area);
// PageControl接受消息的区域：Tab按钮矩形区，无须再判断了！
}
// --------------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
PageControlEx = new TPageControlEx(this);
PageControlEx->Parent=Form1;
PageControlEx->Align=alClient;
// -------------生[url=file://--------生/][/url]成2个TabSheet实验一下------------------------
TTabSheet* newTabSheet = NULL;
newTabSheet = new TTabSheet(this);
newTabSheet->PageControl=PageControlEx;
newTabSheet->Caption="TabSheet1";
newTabSheet = new TTabSheet(this);
newTabSheet->PageControl=PageControlEx;
newTabSheet->Caption="TabSheet2";
}
// --------------------------------------------------------------------------
