TMediaPlayer: aktuelle Position anzeigen lassen?

[gmarts]

Aus der OH:

Zitat:

Delphi-Quellcode:

type

  HMSRec = record
    Hours: byte;
    Minutes: byte;
    Seconds: byte;
    NotUsed: byte;

  end;

procedure TForm1.Button1Click(Sender: TObject);

var
  TheLength: LongInt;
begin
  { Zeitformat einstellen - Achtung, einige Geräte unterstützen tfHMS }
  MediaPlayer1.TimeFormat := tfHMS;
  { Länge des aktuell geladenen Mediums speichern }
  TheLength := MediaPlayer1.Length; 
  with HMSRec(TheLength) do { Typumwandlung von TheLength in einen HMSRec }
  begin
    Label1.Caption := IntToStr(Hours); { Stunden in  Label1 }
    Label2.Caption := IntToStr(Minutes); { Minuten in Label2 }

    Label3.Caption := IntToStr(Seconds); { Sekunden in Label3 }
  end;
end;

Funktioniert natürlich auch bei Mediaplayer1.Position.

F1 8)