Media Player [D7, WinXP]
UserUserov © (2004-09-26 17:51:00)
Как определить закончил ли MP проигрывать файл. Может
есть сообение уведомляющее об этом?
programania (2004-09-26 20:17:00) [1]
событию Notify указать обработку как в справке Delphi:
и проверять значения ModeStr[Mode]
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];
{ Note we must reset the Notify property to True
}
{ so that we are notified the next time the }
{ mode changes }
Notify := True;
end;
end;
Наверх 
ЧАТ |
Орешник |
|
