Delphi

Вопрос

Как заставить MediaPlayer крутить один и тот же клип?

Ответ

procedure TForm1.WMUser1(var msg:TMessage);// message WM_USER+1;
begin
    with MediaPlayer1 do begin
        Previous;
        Notify := True;
        Play;
    end;
end;

procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin
if (Sender as TMediaPlayer).NotifyValue = nvSuccessful then PostMessage(Handle, WM_USER+1, 0, 0);
end;

Из конференции Delphi