Как показать оставшееся время до конца? |
Previous Top Next |
Code: |
Procedure TForm1.Timer1Timer(Sender: TObject); Var TheLength,Posi,SummaMin,SummaSec: Integer; begin //Progress Bar to check if the track is playing if Progress.Max<>0 then Begin Progress.Position := Mediaplayer1.Position;
//Gets the length of the selected track TheLength := Mediaplayer1.TrackLength[ListBox1.ItemIndex];
//gets the current position of the track Posi := Mediaplayer1.Position;
//Caculates Minutes SummaMin := ((TheLength - Posi) div 1000) Div 60;
//Calculates Seconds SummaSec := ((TheLength - Posi) Div 1000) Mod 60;
//Adds zero if Seconds are less then ten If SummaSec < 10 Then Label2.Caption := '0' + IntToStr(SummaSec) Else Label2.Caption := IntToStr(SummaSec);
//Minutes Label1.Caption := IntToStr(SummaMin);
End; |
©Drkb::01314
Взято с сайта http://www.swissdelphicenter.ch/en/tipsindex.php