怎么样使MEDIAPLAYER重复播放N次?
FOR I:=0 TO N DO
MEDIAPLAY1.PLAY;可是前一偏没播放完,后面又开始了,所以感觉就只播了一次
FOR I:=0 TO N DO
MEDIAPLAY1.PLAY;可是前一偏没播放完,后面又开始了,所以感觉就只播了一次
解决方案 »
- vcl的hint流程
- 如何取得各种文件的属性??
- 我想通过程序来控制数码相机,包括开始拍照,到照片进入电脑。查了很多资料,比较模糊。请教高手!!!
- 如何实现鼠标在stringgrid上移动时,相应的单元格就得到焦点!!!!!!!!!!!!
- 有谁用过D7里的TcpServer和Tcpclient做过通讯程序的请帮忙
- 如何对字符串format
- Database Desktop 中的表使用delete为什么没有用?
- 引用c++的dll图像缓冲区指针,如何显示位图
- delphi向窗口发送汉字的奇怪问题
- 在Delphi或c++build中操縱Mssql-server經常產生一些無法刪除或修改的記錄,不知為何?
- &&&&HELP&& listitem 是怎么create?
- 用BDE做的系统,打包需要那些完整的BDE文件?
begin
if (MediaPlayer1.Position=MediaPlayer1.EndPos)and(MediaPlayer1.Mode<>mpNotReady) then
begin
MediaPlayer1.Open;
MediaPlayer1.Play
end
end;
var N:Integer;N:=1;procedure TForm1.Timer1Timer(Sender: TObject);
begin
if (MediaPlayer1.Mode=mpStopped)and(N<=10) then
begin
MediaPlayer1.Rewind;
MediaPlayer1.Play;
N:=N+1
end
end;