网络收藏

如题

推荐阅读

class   package   tswitch   :   public   tpanel  
  {  
  private:  
        bool   fstatus;  
        bool   fswtype;  
        myevent   fclick;  
        unsigned   short   fregister;  
   
        dynamic   void   __fastcall   mousedown(controls::tmousebutton   button,   classes::tshiftstate   shift,   int   x,  
  int   y);  
  //       dynamic   void   __fastcall   keydown(word   &key,   classes::tshiftstate   shift);  
        dynamic   void   __fastcall   mouseup(controls::tmousebutton   button,   classes::tshiftstate   shift,   int   x,  
  int   y);  
        void   __fastcall   mypaint(void);  
        void   __fastcall   setstatus(bool   x)  
                {  
                      fstatus=x;  
                      mypaint();  
                };  
        void   __fastcall   setswtype(bool   x)  
                {  
                      fswtype=x;  
                      mypaint();  
                };  
        void   __fastcall   defclick(controls::tmousebutton   button,   classes::tshiftstate   shift,   int   x,  
  int   y)  
                  {  
                  };  
   
  protected:  
  public:  
        __fastcall   tswitch(tcomponent*   owner);  
  __published:  
        __property     bool   status   =   {   read   =   fstatus,write   =   setstatus,nodefault};   //自已加的  
        __property     bool   swtype   =   {   read   =   fswtype,write   =   setswtype,nodefault};  
        __property     unsigned   short   plcregister   =  
                                                {   read   =   fregister,write   =   fregister,nodefault};  
        __property     myevent   onmyclick   =   {   read   =   fclick,write   =   fclick,nodefault};  
   
  };