Morgen Leute,
ich bin immer noch auf der suche nach einer sehr guten Zeit Anzeige für meinen Wave Player.
Label1.Caption soll mir die Position der gerade spielenden Wave anzeigen.00:00:00
Label2.Caption soll mir den noch zu spielenden Rest Zeit anzeigen . 00:00:00
Also angefangen mit Minuten,Sekunden usw.Habe mal was gebastelt was ich dazu im Internet gefunden habe :
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
| procedure TForm1.Timer1Timer(Sender: TObject);
var Minuten : Byte;
begin
Minuten := (Player1.wave.Length - Player1.Position) div 1000 div 60;
Laufzeit1.Caption := LeadingZero(Minuten) + ':' +
LeadingZero(((Player1.wave.Length - Player1.Position) div 1000) -
(Minuten * 60));
Gauge1.Progress := Player1.Position * 100 div Player1.wave.Length;
end; |
Danke für Eure Hilfe und ein schönes Weekend noch.
LG Patrick
