塬
塬上独狼
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.WindowsMediaPlayer1PositionChange(ASender: TObject;
oldPosition, newPosition:do
uble);
begin
if (windowsmediaplayer1.controls.currentPosition=windowsmediaplayer1.currentMedia.duration ) then
begin
filename1:= listbox1.Items [listbox1.ItemIndex+1] ;
Windowsmediaplayer1.url:=filename1;
WindowsMediaPlayer1.controls.play ;
end;
end;
我写了
这样一段代码实现不了？
oldPosition, newPosition:do
uble);
begin
if (windowsmediaplayer1.controls.currentPosition=windowsmediaplayer1.currentMedia.duration ) then
begin
filename1:= listbox1.Items [listbox1.ItemIndex+1] ;
Windowsmediaplayer1.url:=filename1;
WindowsMediaPlayer1.controls.play ;
end;
end;
我写了
这样一段代码实现不了？