Цитата:
|
Сообщение от lmikle
У тебя есть индекс.
|
Спасибо! Это весьма исчерпывающий ответ для меня. Не могли бы вы помочь еще в процедуре проигрывания звука, у меня пока по клику на картинке отображает сообщение Yes/No хотелось бы что бы проигрывался звук вместо сообщения. Но как вставить не пойму, ведь в цикле может быть только одна процедура, а для проигрывания и откртия файла их три, примерно таких
mediaplayer1.FileName:=file.mp3;
MediaPlayer1.Open;
MediaPlayer1.Play;
А это моё событие при клике на картинку
Код:
procedure TForm7.Image12Click(Sender: TObject);
begin
if image12.Tag=y then ShowMessage('Yes')
else ShowMessage('NO ');