能解决问题的，送100分！！！(100分)

L

lk628025

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-27

• #1

我正在用delphi做一个类似winmnap那样的播放器，主要控件就用了
delphi自带的mediaplayer，列表控件用的是filelistbox，可是
如何才能像winmnap那样在歌曲列表里面双击一首歌曲就可以播放了呢？
我知道filelistbox有个支持双击的事件，可具体代码是怎么样的我就
不太清楚了。能把具体的代码告诉我吗？小弟在此不胜感激呀！

 

W

wqch88

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-27

• #2

procedure TForm1.FileListBox1DblClick(Sender: TObject);
var
i:integer;
begin

i:=filelistbox1.ItemIndex;
showmessage(FileListBox1.Items.Strings);
end;

 

K

Kshape

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-27

• #3

哇
高深
帮你顶

 

W

wqch88

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-27

• #4

procedure TForm1.FileListBox1DblClick(Sender: TObject);

begin

with mediaplayer1do

begin

close;
filename:=filelistbox1.filename;
open;
play;
end;

end;

 

智

智利

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-27

• #5

晕~，Kshape你不用这么夸张吧。[]

 

L

lk628025

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-27

• #6

我正在试。。。

 

L

lk628025

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-27

• #7

有点问题哦，一运行它就一直弹出一个对话框“no MCI device open”怎么回事？

 

K

kouchun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-27

• #8

你的未加入播放文件!!

 

L

lk628025

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-27

• #9

大家看这段代码：双击已经可以播放了，但是每次播放的都是我上一次双击的那首歌，我在i后面加了1，可还是不对，大家帮忙解决呀？

procedure Tfile_form.FileListBox1DblClick(Sender: TObject);
var i:integer;
begin

with form1.MediaPlayer1do

form1.MediaPlayer1.Close;
begin

try
form1.MediaPlayer1.Open;
i:=file_form.FileListBox1.ItemIndex;
form1.MediaPlayer1.FileName:=file_form.FileListBox1.Items.Strings;
form1.MediaPlayer1.Play;
except
exit;
end;

end;

end;

 

W

wqch88

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-27

• #10

我试过，我写的没有问题。

 

L

lk628025

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-27

• #11

请问：wqch88，那你帮我调试一下我上面那段代码呀？运行后每次播放的都是我上一次双击的那首歌，我在i后面加了1，可还是不对，帮忙解决呀？万分感激！！！我急用啊！

 

Z

zla

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-27

• #12

FileListBox1.FileName

 

W

wqch88

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-27

• #13

procedure Tfile_form.FileListBox1DblClick(Sender: TObject);
var i:integer;
begin

with form1.MediaPlayer1do

begin

try
close;
i:=file_form.FileListBox1.ItemIndex;
FileName:=file_form.FileListBox1.Items.Strings;
open;
Play;
except
exit;
end;

end;

end;

 

L

lk628025

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-27

• #14

非常感谢wqch88。我的程序OK了，分已经加了，你的QQ号是多少？能聊聊吗？
我的网址是http://515.go.nease.net 你可以给我留言。 ：）

 

L

lk628025

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-04-27

• #15

多人接受答案了。