Aktuellen Status des MediaPlayers ermitteln!

[Captnemo]

Hast du schon mal die Delphi-Hilfe konsultiert?

Delphi-Quellcode:

const

  ModeStr: array[TMPModes] of string = ('Not ready', 'Stopped', 'Playing', 'Recording', 'Seeking', 'Paused', 'Open');

procedure TForm1.MediaPlayer1Notify(Sender: TObject);

begin
  with Sender as TMediaPlayer do
  begin
    Form1.Caption := ModeStr[Mode];
    { Die Eigenschaft Notify muss auf true gesetzt werden, }
    { damit wir von den nächsten Modusänderungen }
    { benachrichtigt werden. }
    Notify := True;
  end;
end;

Markier mal in deinem Projekt den MediaPlayer, und drück dann mal auf F1.

Ich gehe mal davon aus, das du das gemeint hat.

[edit=Daniel B]Delphi-Tags korrigiert. Mfg, Daniel B[/edit]