用TrackBar组件配合做个播放器，但是该组件的拖动事件不知道怎么控制？

Question

如题：
    不知道这里的拖动开始，拖动结束怎么才能控制，需要怎么设置属性，才能控制好拖动事件？

Answer 1

可以在OnChange事件里判断Position属性

Answer 2

那我怎么知道，它鼠标是不是拖动啊，而且像播放器一样，播放器在播放的时候，也是可以拖动的，那原来播放器播放的时候，那tacker的change事件就是发生的，我怎么搞？

Answer 3

一般來說 Onchange 是不建議使用的...
1.你先要從 Trackcbar這個東西繼承一個東西,例如取名字為 TrackbarEx
2.不用說,看代碼...
//
unit TrackBarEx;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls;type
  TTrackBarEx = class(TTrackBar)
  private
    { Private declarations }
  protected
    { Protected declarations }
  public
    { Public declarations }
  published
    { Published declarations }
    property OnMouseUp;//添加之一
    property OnMouseDown;//添加之二
  end;procedure Register;implementationprocedure Register;
begin
  RegisterComponents('Samples', [TTrackBarEx]);
end;end.
{使用方法:
OnMouseDown 設置一個標志(一般為Boolean=ture),在這裡幹你要幹的事情,就是別幹改變歌曲位置的事情...
OnMouseUp 設置Player.Position =...,然後 Boolean = False 翻轉;
}
這樣你應該知道如何做了?

Answer 4

设置进度条DragMode=dmAutumatic,然后在事件DragDrop,DragOver中写代码就可以了