procedure TFmMain.bitstartClick(Sender: TObject);
begin
i:=0;if lbviews.Caption<>'0' then
begin
Timer1.Enabled:=true;bitstart.Visible:=false;
bitstop.Visible:=true;MediaPlayer2.Stop;
MediaPlayer3.Stop;
MediaPlayer1.Open;
MediaPlayer1.Play;
//Image1.Picture:=nil;
//Image1.Picture.LoadFromFile('C:\³é½±\FilmAwards\Photo\ÅĽ±.gif');//lbviews.Caption;
ernietimes.caption:='Äú»¹ÓÐ'+lbviews.Caption+'´ÎÅĽ±»ú»á';
end
else
begin
MediaPlayer2.Stop;
MediaPlayer3.Stop;
MediaPlayer1.Stop;
end;
begin
i:=0;if lbviews.Caption<>'0' then
begin
Timer1.Enabled:=true;bitstart.Visible:=false;
bitstop.Visible:=true;MediaPlayer2.Stop;
MediaPlayer3.Stop;
MediaPlayer1.Open;
MediaPlayer1.Play;
//Image1.Picture:=nil;
//Image1.Picture.LoadFromFile('C:\³é½±\FilmAwards\Photo\ÅĽ±.gif');//lbviews.Caption;
ernietimes.caption:='Äú»¹ÓÐ'+lbviews.Caption+'´ÎÅĽ±»ú»á';
end
else
begin
MediaPlayer2.Stop;
MediaPlayer3.Stop;
MediaPlayer1.Stop;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货