我是用button直接调用的,代码如下:
procedure TForm1.Button1Click(Sender: TObject);
begin
opendialog1.FileName:='*.avi';
if opendialog1.Execute then
begin
mediaplayer1.Close;
mediaplayer1.filename:=opendialog1.filename;
mediaplayer1.open;
mediaplayer1.next;
endposition:=mediaplayer1.position;
mediaplayer1.rewind;
end
else
begin
exit;
end;
if mediaplayer1.mode=mppaused then
begin
mediaplayer1.Resume;
end
else
begin
mediaplayer1.play;
end;
end;为什么我播放的影片速度会是快进形式??不是正常播放形式!我怎么样才能令播放窗口在最顶层?
procedure TForm1.Button1Click(Sender: TObject);
begin
opendialog1.FileName:='*.avi';
if opendialog1.Execute then
begin
mediaplayer1.Close;
mediaplayer1.filename:=opendialog1.filename;
mediaplayer1.open;
mediaplayer1.next;
endposition:=mediaplayer1.position;
mediaplayer1.rewind;
end
else
begin
exit;
end;
if mediaplayer1.mode=mppaused then
begin
mediaplayer1.Resume;
end
else
begin
mediaplayer1.play;
end;
end;为什么我播放的影片速度会是快进形式??不是正常播放形式!我怎么样才能令播放窗口在最顶层?
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货