您所在位置：主题：ListBox组件的问题。菜鸟问题 请大家指教.
stylehack
[专家分：0] 发布于 2007-08-31 19:38:00
ListBox1中比如我有2项内容
1项为 电影1
2项为 电影2
我想实现的功能是鼠标点击listbox组件中( 电影1 )事件时
在activex组件中的 WindowsMediaPlayer 组件中自动播放电影.我的代码是:
procedure TForm1.ListBox1DblClick(Sender: TObject);
var
i: integer;
s: string;
begin
i:= listbox1.itemindex;
s:= listbox1.Items.strings[i];
media.URL := 'mms://livemms.online2.sh.cn/JingPinYingYuan ';
end;
我是这个样写的.但是我只会写1项.所以运行程序的时候点击 电影1 的时候就播放了
mms://livemms.online2.sh.cn/JingPinYingYuan 这个电视,但是点击电影2 的时候同样是播放的这部电影.
请各位高手指教下我 如何实现多项.?. 点电影2 播放第2部电影!?
请高手给予指教.
1项为 电影1
2项为 电影2
我想实现的功能是鼠标点击listbox组件中( 电影1 )事件时
在activex组件中的 WindowsMediaPlayer 组件中自动播放电影.我的代码是:
procedure TForm1.ListBox1DblClick(Sender: TObject);
var
i: integer;
s: string;
begin
i:= listbox1.itemindex;
s:= listbox1.Items.strings[i];
media.URL := 'mms://livemms.online2.sh.cn/JingPinYingYuan ';
end;
我是这个样写的.但是我只会写1项.所以运行程序的时候点击 电影1 的时候就播放了
mms://livemms.online2.sh.cn/JingPinYingYuan 这个电视,但是点击电影2 的时候同样是播放的这部电影.
请各位高手指教下我 如何实现多项.?. 点电影2 播放第2部电影!?
请高手给予指教.
