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