zapetlanie muzyki mediaplayer

jak zrobic zeby ta sama piosenka sie odtwarzala bez konca ??? za pomocą mediaplayer :)

w zdarzeniue MediaPlayer1.OnNotify sprawdzasz wartość:

MediaPlayer1.NotifyValue
//nvSuccessful, nvSuperseded, nvAborted, nvFailure

i jeśli utwór się skończy (nvSuccessful) to robisz:

MediaPlayer1.Stop;
MediaPlayer1.Play;

chyba jakos tak nie sprawdzałem ale tak mniejwięcej powinno być

dzięki pomogło :)

a jeszcze mam pytanie . jak zamykam jedna forme no to sie pytam goscia czy na pewno chce zamknac bo nie zapisal no to jak wezmie nie to jak to zrobic zeby sie forma nie zamknela. ja probowalem tak ale nie dziala

           case Application.MessageBox('Uwaga !!! nie utworzyles gry!!! '+#13+'a ostatnia zostala usunieta'+#13#13+'Zamknąc ???','ej!!!',MB_YESNO + MB_IconWarning) of
          IDYES : form5.Close();
          IDNO :form5.showmodal;

a i to sie dzieje na formie5 :)

procedure TForm5.Button1Click(Sender: TObject);
begin
  Close;
end;

procedure TForm5.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  case Application.MessageBox('Uwaga !!! nie utworzyles gry!!! '+#13+'A ostatnia zostala usunieta.'+#13#13+'Zamknąc???','ej!!!',MB_YESNO + MB_IconWarning) of
    IDYES : CanClose := True;
    IDNO : CanClose := False;
  end;
end;

pisze ze jest nie zadeklarowane to canclose:(

Jeśli ten kod dla zdarzenia OnCloseQuery formyi wkleiłeś do zdarzenia OnCloseQuery to musi działać.

no tak ale teraz chcialem cos takiego

  case Application.MessageBox('Zamiast zamykac Wisla Helper mozesz dac go do tray''a:)Będzie tam czekał na Ciebie :)'+#13+'Wystarczy nacisnąc tak :)','Do tray''a ?',MB_YESNO + MB_IconInformation) of
    IDYES : pasek;
    IDNO : CanClose := True;
  end;

a w procedurze pasek mialo byc zeby sie nie zamykalo i szlo do traya o tak

procedure tform1.pasek;
begin
CanClose := false;
cooltrayicon1.ShowTaskbarIcon;
end;

no i jak teraz zrobic ;>;>

Jejku, myśleć trochę [!!!] Nie możesz użyć CanClose aby aplikacja na nie reagowała poza zdarzneiem
CloseQuery, tak ćięzko zrobić wszystko w CloseQuery między beginem, a endem. Zero samodzielności.

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  case Application.MessageBox('Uwaga !!! nie utworzyles gry!!! '+#13+'A ostatnia zostala usunieta.'+#13#13+'Zamknąc???','ej!!!',MB_YESNO + MB_IconWarning) of
    IDYES : begin
             cooltrayicon1.ShowTaskbarIcon;
             CanClose := false;
           end;
    IDNO : CanClose := True;
  end;
end;