Associer un son à un boutonRésolu

Question

Bonjour à tous,
Voilà, mon boss m'a demandé de faire une application Delphi avec des chronomètres...J'ai un bouton Démarrer qui fait démarrer les chronos et un bouton Arrêter qui les fait stopper...tous cela est fait. Mon problème est que je souhaite associer un son à mon bouton Démarrer comme ça lorsque j'appuie sur ce bouton un son est déclenché (comme un pistolet pour démarrer une course) et mes chronos commence à chronométrer....   Merci à tous et bonne journée

Badyinfo · Accepted Answer

Merci merci!  Nicolas

Nicolas___ · Answer

http://vcallies.developpez.com/delphi/sons/#L3

Voila

hainlesgens · Answer

utilise un tmediaplayeur. tien voila une fonction que j'ai réalisé pour le même principe sauf que je déclenche le son 2 minutes avant la fin du chronomètre!

procedure TForm4.FormCreate(Sender: TObject);
begin
MediaPlayer1.FileName:='joni.MID';
MediaPlayer1.Open;
end;

procedure TForm4.CmdStartTournoiClick(Sender: TObject);
begin
sec:=0;
min:=30;
i:=1;
timer1.Enabled:=true;
CmdStartTournoi.Visible:=false;
CmdStartTimer.enabled:=false;
CmdPauseTimer.Enabled:=true;
end;

procedure TForm4.Timer1Timer(Sender: TObject);

begin
  if Sec > 1 then
   begin
   Sec := Sec-1
   end
else
begin
Sec := 59;
if Min > 0  then
 begin
 Min := Min-1
 end
else
begin
Min := 29;
i:=i+1;

end
end;

hainlesgens · Answer

if min=1 then


begin
MediaPlayer1.Play ;if ((min 0) and (sec2)) then
MediaPlayer1.Stop;


end;

j'ai oublier le plus important pardon

Badyinfo · Answer

Merci hainlesgens...

Badyinfo · Answer

Merci hainlesgens...

Nicolas___ · Answer

1 médiaplayer , juste pour déclencher 1 son , ce n'est pas très utile ! 
Surtout si c'est un son court ! 

Enfin ...

Bacterius · Answer

Ouaip, si c'est un WAVE, ajoute MMSystem aux uses, et utilise PlaySound (utilisation d'un TMediaPlayer très lourd).

Cordialement, Bacterius !

Associer un son à un bouton

8 réponses

Votre réponse

Discussions similaires