有关TMediaPlayer的一个问题 form show时open一个wav文件,然后调用TMediaplayer的播放功能直至button有被按下的事件发生 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 TMediaPlayer.paly 只能播放,我想知道的是如何循环重复播放呀 用一个Timer看乐曲是不是放完了。procedure TForm1.Timer1Timer(Sender:TObject);begin if MediaPlayer1.Mode in [mpStopped] then MediaPlayer1.Play;end;procedure TForm1.Button1Click(Sender: TObject);begin Timer1.Enabled:=False; MediaPlayer1.Stop;end; MediaPlayer.AutoRewind = true; 想在一个子窗体调用主窗体的控件和变量如何做? 我评论了资料为何积分还是零呀?郁闷… Delphi 2005接触 学习笔记 如何画正规的五角星?? if 语句的问题 怎样解决代码共用性的问题 用ADO访问Sql Server 2000,为什么客户端机器设置了密码后,再运行我原来的程序,需要先通过网上邻居访问一下服务器才能正确连接,否则会 DBGrid 编辑时如何赋值??? pchar string 二进制 地址 大評。。 那里有将机器变成ftp服务器的控件? 求助!!!!! excel問題
procedure TForm1.Timer1Timer(Sender:TObject);
begin
if MediaPlayer1.Mode in [mpStopped] then
MediaPlayer1.Play;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled:=False;
MediaPlayer1.Stop;
end;