проблема с медиаплером

[CraZZy RabbIt]

есть код

procedure TForm1.Label30MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
MediaPlayer1.Play;
end;

при наведени мышкой на лейбл проигрывается звук..но он играет по кругу пока не уберешь мышь..как сделать чтоб он проигрывался только ОДИН раз!!??

MediaPlayer1.Stop;
не помогает(

[mihali4]

А если убрать AutoRewind ?

[CraZZy RabbIt]

проигрывается только один раз,а нужно чтоб каждый раз при наведении мыши...мыш навел,файл проигрался,следуший раз навел - то же самое...по такому принципу..

[KORN]

если звуковой файл короткий то лучше использовать SNDPlaySound('Filename', SND_ASYNC)

[SeRhy]

Создай бульную переменную, B например, ктоторой присвой True по умолчанию.
Когда мышь наводиш на лабел то делай так:

....
if B=True then
Begin
  MediaPlayer1.Play;
  B:=False;
End;
....

По событию OnMouseLeave лабла делай так:

....
Begin
  B:=True;
  MediaPlayer1.Stop;
  MediaPlayer1.Rewind;
End;
....

[mutabor]

Лучше немного не так, а просто при наведении играть его так:
1. Перемотка назад, не Rewind, там еще один метод есть.
2. Play

И будет всё путем.

p.s. Не заметил, что по движению мыши, тогда да, нужна еще булевая переменная.