(BCB)为VCL组件增加事件和属性

   VCL中有很多事件和属性，但并不是对每个子类组件都公开，这当然是正确的，但有些
   时候却给我们带来了麻烦，比如想使用TRichEdit的OnDlbClick事件，找来找去却找不
   到，只好通过重载窗口过程或增加消息映射来实现，实际不需要这么麻烦，既然Borland
   已经实现好了却不给我们，那就动粗。

  例子一： 增加双击事件通用函数

bool __fastcall SetDblClick(TControl *Ctl, Classes::TNotifyEvent EventFun)
{
    class TMyControl : public TControl
    {
        __published:
        __property OnDblClick;

    };
    if (dynamic_cast<TControl *>(Ctl) != NULL)
    {
        ((TMyControl *)Ctl)->OnDblClick = EventFun;
        return true;
    }
    return false;
}

用法：

void __fastcall TForm1::MyDblClick(TObject *Sender)
{
    ShowMessage("DblClick");
}
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    SetDblClick(RichEdit1,  MyDblClick);  //增加双击函数
    //SetDblClick(RichEdit1,  NULL);//取消双击函数
｝

例子二：增加颜色属性

 

 

void __fastcall TForm1::Button2Click(TObject *Sender)
{
    class TMyControl : public TWinControl
    {
        __published:
        __property Color;

    };
    ((TMyControl *)PageControl1)->Color = clBlue;
｝

组件属性如果不支持，公开也没用，比如TButton的Color，应用时候要注意。