改控件,不要以为很难,只需加两句话就可以了
你在程序里的任何位置输入Ttrackbar,按住ctrl键,点击它,便会打开该控件代码(comctrl.pas),你找到Ttrackbar这段的最后一个事件,在后面加两个事件,onmousedown,onmouseup,保存之后,再编译这个文件,把生成的dcu文件复制到delphi\lib下面去就ok啦
之后,你再加个trackbar组件,在代码编辑器里打个trackbar1,输入'.'之后,弹出来的事件里面就有onmousedown/onmouseup了,