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ł
Artykuł o dzwieku w dziale ARTYKUŁY + Help + FAQ + Forum (poczytaj)
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;
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.