Как TMEdiaPlayer сделать чтобы он проигрывал одну и туже мелодию бесконечно

Здравствуйте, Аноним, Вы писали:

А>Как TMEdiaPlayer сделать чтобы он проигрывал одну и туже мелодию бесконечно

самый простой способ , но не лучший, по таймеру :

if MP.Position>=MP.Length then MP.Position:=0;

второй, помоему самый приемлемый — по событию (не Notify ), но вот как его прописать
поищи ... где -то видел, но уже забыл что и куда прописывать.

Здравствуйте, Аноним, Вы писали:

А>Как TMEdiaPlayer сделать чтобы он проигрывал одну и туже мелодию бесконечно

У TMediaPlayer существует событие OnNotify. Оно происходит когда заканчивается исполнение любого вызванного медиа-метода (например Play или Eject). Таким образом, достаточно в обработчике вышеуказанного события написать "MediaPlayer.Play". Мелодия должна проигрываться бесконечно.