BCB之组件的继承重载(Button 重载 Click事件)

#ifndef   MyButtonH  
  #define   MyButtonH  
  //---------------------------------------------------------------------------  
  #include   <SysUtils.hpp>  
  #include   <Controls.hpp>  
  #include   <Classes.hpp>  
  #include   <Forms.hpp>  
  #include   <StdCtrls.hpp>  
  //---------------------------------------------------------------------------  
  class   PACKAGE   TMyButton   :   public   TButton  
  {  
  private:  
  protected:  
          DYNAMIC   void   __fastcall   Click();   //声明重载函数
  public:  
          __fastcall   TMyButton(TComponent*   Owner);  
  __published:  
  };  
  //---------------------------------------------------------------------------  
  #endif  
  .cpp   File  
  //---------------------------------------------------------------------------  
   
  #include   <vcl.h>  
  #pragma   hdrstop  
   
  #include   "MyButton.h"  
  #pragma   package(smart_init)  
  //---------------------------------------------------------------------------  
  //   ValidCtrCheck   is   used   to   assure   that   the   components   created   do   not   have  
  //   any   pure   virtual   functions.  
  //  
   
  static   inline   void   ValidCtrCheck(TMyButton   *)  
  {  
          new   TMyButton(NULL);  
  }  
  //---------------------------------------------------------------------------  
  __fastcall   TMyButton::TMyButton(TComponent*   Owner)  
          :   TButton(Owner)  
  {  
          ShowMessage("How   are   you");  
   
  }  
  //---------------------------------------------------------------------------  
  void   __fastcall   TMyButton::Click()  
  {  
          ShowMessage("how   are   you");  
          TButton::Click();  
  }  

   
  namespace   Mybutton  
  {  
          void   __fastcall   PACKAGE   Register()  
          {  
                    TComponentClass   classes[1]   =   {__classid(TMyButton)};  
                    RegisterComponents("AKing",   classes,   0);  
          }  
  }  
  //---------------------------------------------------------------------------  

你可能感兴趣的:(button)