delphi2007 教程

一个派生于 TCollectionItem 类 的 TbsButtonBarItem 类 然后 怎么给 TbsButtonBarItem 增加一个 onMouseDown 事件 Delphi / Windows SDK/API
http://www.delphi2007.net/DelphiAPI/html/delphi_20061207005242113.html
TbsButtonBarItem   一个皮肤控件的类，只有   oclick   事件。   我想   给它增加一个  
  OnmouseDown   事件    
   
  我派生了一个TbsButtonBarItem   类   TbsBarItem   然后加入了  
   
  消息   捕捉过程  
  procedure   WMLBUTTONDOWN(var   Message:   TMessage);   message   WM_LBUTTONDOWN;  
   
  为什么   这个  
   
  procedure   TbsBarIte.WMLBUTTONDOWN(var   Message:   TMessage);  
  begin  
    showmessage('test');     ///这个为什么不发生呢？？？  
    NowIndex:=self.index;  
  end;  
   
  为什么捕捉不到消息呢，   点击控件的时候  
   
  end;  
   
  这个控件来自   TbsSkinButtonsBar   ，TbsButtonBarItems   类的   子类    
  我想在在右点   这个控件的时候找到它的   index      
  可是没有   OnMouseDown   这个事件   ，   我事件扑捉   怎么没有反映呢，，？！？扑捉不到消息？  
 

TCollectionItem及其派生类不是控件类,无法直接接受消息,所以不能简单地添加一个消息,必须首先得到所属控件的消息过程才行,既然TbsButtonBarItem类有一个OnClick事件,它必然截留了它所属的控件的消息过程,参照其方法实现你的事件!