Feststellen wenn TMediaPlayer aufgehört hat zu spielen

[bitsetter]

Hi,

hast du dir das Event onNotify angesehen?

Delphi-Quellcode:

procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin
  if Sender is TMediaplayer then
   if TMediaplayer(Sender).Mode = mpPlaying  then
     showmessage('OK');
end;