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;
Zarejestruj się i dołącz do największej społeczności programistów w Polsce.
Otrzymaj wsparcie, dziel się wiedzą i rozwijaj swoje umiejętności z najlepszymi.