Discussion :

[Yepazix]

Hello,

Voici un bout de code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
procedure TForm1.Button1Click(Sender: TObject);
begin
Button1.Visible:=false;
AppDir := IncludeTrailingBackslash(ExtractFilePath(Application.ExeName));
Mediaplayer1.Filename:= AppDir + 'sound\1.wav';
Mediaplayer1.Open;
Mediaplayer1.play;
Edit1.Text:=mediaplayer1.FileName;
Button1.Visible:=true;
end;

Quand je l'exécute, le bouton 1 devient invisible et réapparait immédiatement.
Au lieu de ça je voudrais qu'il ne réapparaisse qu'après que le son ait été joué entièrement.
Est ce possible ?

MErci

[Just-Soft]

Salut;

même si je n'ai jamais touché au composant MediaPlayer mais je crois qu'il a une propriété qui permet de savoir le mode pause ou arret donc il est possible de lire la propriété en question et de positionner ton bouton selon l'état du MediaPlayer.

[shell13010]

moi aussi j'ai jamais utiliser se composant mais malgrer sa

dans la logique des choses j'aurais essayer ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.Button1Click(Sender: TObject);
begin
   Button1.Visible:=false;
      AppDir := IncludeTrailingBackslash(ExtractFilePath(Application.ExeName));
        Mediaplayer1.Filename:= AppDir + 'sound\1.wav';
      Mediaplayer1.Open;
    Mediaplayer1.play;
   Edit1.Text:=mediaplayer1.FileName;
  MediaPlayer1.Stop;
 Button1.Visible:=true;
end;

[Andry]

Non.
Il faut gérer l'évènement ou le MediaPlayer change d'état.
Si jamais, tu n'as pas encore de soluce jusqu'à demain matin, je te posterai le code.

A+

[Lung]

Non.
Il faut gérer l'évènement ou le MediaPlayer change d'état.

Oui. C'est dans le OnNotify (qu'il faut activer avant).

[sam83]

Bonsoir a tous moi aussi j'ai jamais utiliser se composant; je pense que il faut jouer sur la duré du clip.