delphi中ListBox组件使用的问题。

Question

ListBox组件的问题。菜鸟问题 请大家指教.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部电影!?请高手给予指教.

Answer 1

procedure TForm1.FormCreate(Sender: TObject);
begin
Listbox1.Clear;
Listbox1.Items.Add('电影1');
Listbox1.Items.Add('电影2');
end;procedure TForm1.ListBox1DblClick(Sender: TObject);
var
i: integer;
s: string;
begin
//i:=listbox1.ItemIndex;
S:= listbox1.Items[listbox1.ItemIndex];
if s='电影1'  then
S:='mms://livemms.online1.sh.cn/JingPinYingYuan'
else
S:='mms://livemms.online2.sh.cn/JingPinYingYuan' ;
media.URL :=S;
end;