Dzwięk

0

Mam pewien problem chciałbym aby po najechaniu kursora na komponent Timage włączył się dzwięk.

Zrobiłem procedure ONMOUSEMOVE
playsound('on.wav' ,0, SND_Filename or snd_async);

i było ok ale kiedy ruszam myszką w obrębie tego imaga dzwięk się nadal odtwarza czy jest jakiś sposób aby po najechaniu myszką dzwięk odtworzył się tylko raz a po jego zjechaniu z imaga i powtórnym najechaniu znów się włączył

0

Artykuł o dzwieku w dziale ARTYKUŁY + Help + FAQ + Forum (poczytaj)

0

Możesz włożytć na forme komponent TMediaPlayer i w OnMouseMove wpisać coś takiego:

MediaPlayer1.FileName := 'C: plik.wav'; //żródło do pliku
MediaPlayer1.Open; //otwiera plik
MediaPlayer1.Play; //odtwarza go
Zjechanie:
MediaPLayer1.close;

0

Jemu wcale nie chodzi o dźwięk... Tylko o to, żeby program reagował tylko raz na najechanie kursorem. Możesz zrobić np. zmienną globalną najechany:boolean, w onmousemove odgrywać dźwięk tylko wtedy, kiedy najechany=false, po czym dawać mu true. Natomiast w onmousemove formy znowu dajesz zmiennej false.

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0