Как заставить MediaPlayer крутить один и тот же клип
Как заставить MediaPlayer крутить один и тот же клип
Как заставить 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;
