~~~~~~~~~~~~~~~~~~~~~~~~~
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;
//must set to true to
//enable next-time notification
Notify := True;
end;
end;
~~~~~~~~~~~~~~~~~~~~~~~~~
Delphi tips navigator:
» Disable LogOff, TaskManager and ShutDown on Win NT systems (2000/XP)
« How to get the number of words in Richedit
