盒子论坛 v2.1

各位,我正在编一个媒体播放软件,但由于许多问题被迫中断,其中最主要的问题是TrackBar(滚动条)控件在我的程序中是用来控制播放进度的,但我不知道怎样用它实现瞬间跳转功能(例如WMP的滚动条,用鼠标点击任意一位置,它都会自动跳到点到的位置播放),请问用TrackBar控件如何实现这样的功能??谢谢!!!
----------------------------------------------
我是一个学编程很久但却没什么成绩的初三学生,请各位多多指教!!

作者：

123 (猪猪)	★☆☆☆☆	-
	盒子活跃会员

2003/5/1 2:13:22

1楼：

.......trackbar1onmousedown(sender:TObject.....)
begin
trackbar1.position:=x;
end;
----------------------------------------------
-

作者：

Water Elemental (Fantasy)	★☆☆☆☆	-
	普通会员

2003/5/1 12:46:42

2楼：

能不能说得清楚一点啊？谢谢！！
----------------------------------------------
我是一个学编程很久但却没什么成绩的初三学生,请各位多多指教!!

作者：

Water Elemental (Fantasy)	★☆☆☆☆	-
	普通会员

2003/5/1 14:22:20

3楼：

trackbar没有onmousedown事件~~怎么办?谢谢了!
----------------------------------------------
我是一个学编程很久但却没什么成绩的初三学生,请各位多多指教!!

作者：

king-hero (king-hero)	★☆☆☆☆	-
	普通会员

2003/5/1 16:55:40

4楼：

我也有同样的问题
那是在我编FLASH播放器的时候
问题好像解决了，好像没有
回去看看，下次再告诉你
----------------------------------------------
无止之徒

作者：

Water Elemental (Fantasy)	★☆☆☆☆	-
	普通会员

2003/5/1 17:13:25

5楼：

先谢谢你了~~
----------------------------------------------
我是一个学编程很久但却没什么成绩的初三学生,请各位多多指教!!

作者：

mqqi (mqqi)	★☆☆☆☆	-
	普通会员

2004/4/29 10:43:19

6楼：

晕！！
----------------------------------------------
-

作者：

maydays (may)	★☆☆☆☆	-
	普通会员

2004/5/14 9:37:07

7楼：

现在有结果了吗，请告诉我，谢谢

----------------------------------------------
-

作者：

mqqi (mqqi)	★☆☆☆☆	-
	普通会员

2004/5/14 12:40:52

8楼：

搞不定，我最近都没时间编程了，最近我在忙学校的事！
----------------------------------------------
-

作者：

delphize (ゞ艾╃澤メ)	★☆☆☆☆	-
	盒子活跃会员

2004/5/14 13:11:09

9楼：

看看这个能不能行!
var
ze:boolean;//全局变量

procedure TFormMain.TrackBar1Change(Sender: TObject);
begin
   if ze then exit;
   MediaPlayer1.Position:=TrackBar1.Position*1000;
   MediaPlayer1.Play;
end;

procedure TFormMain.Timer1Timer(Sender: TObject);
begin
    ze:=True;
    TrackBar1.Position:=MediaPlayer1.Position div 1000;
    ze:=False;
end;
----------------------------------------------
燃烧18岁！让青春无悔！

Delphi天堂（QQ群）:3701818 欢迎您的加入！

信息

登陆以后才能回复