怎么为trackbar添加鼠标事件

Question

就是怎么为trackbar添加OnMouseDown 和OnMouseUp事件
最好能用继承的 本人新手 不会写
希望能给全代码~~
或是能控制mediaplay的进度
OnChange 事件貌似不行~~
高手帮忙~~

Answer 1

原来的帖子里给了你个网址，下下来看看就都知道了
http://www.2ccc.com/article.asp?articleid=1068 

Answer 2

unit unti1;interface
uses
  Windows, Messages, Classes, Controls, ExtCtrls;type
  MyTrackBar= class(TTrackBar)
    publish
      OnMouseDown;
      OnMouseUp;
  end;procedure Register;implementationprocedure Register;
begin
  RegisterComponents('Sa', [MyTrackBar]);
end;