Mega Code Archive
Mediaplayer’ın çalmayı iptal ettiğini tespit etmek
<![CDATA[
Uyarı eylemi gerçekleştiğinde, Notify özelliği False olarak geri resetlenir. Bu nedenle daha ileriki uyarı eylemlerini almak için kod içerisinde onu tekrar True olarak değiştirmeniz gerekir.
~~~~~~~~~~~~~~~~~~~~~~~~~
procedure TForm1.FormCreate(Sender: TObject) ;
begin
MediaPlayer1.Notify := True;
MediaPlayer1.OnNotify := NotifyProc;
end;
procedure TForm1.NotifyProc(Sender: TObject) ;
begin
with Sender as TMediaPlayer do
begin
case Mode of
mpStopped: {DO something HERE};
end;
//Daha ileriki uyarı için True olarak ayarlanması gerekir.
Notify := True;
end;
end;
~~~~~~~~~~~~~~~~~~~~~~~~~
]]>