TrackBarに不安あり

diff --git a/Unit1.pas b/Unit1.pas
index 318bd4e..2ee4305 100644 (file)
--- a/Unit1.pas
+++ b/Unit1.pas
@@ -195,6 +195,10 @@ begin
     else
     begin
       MediaPlayer1.FIleName := Form3.FIleName;
+      if Form3.Switch1.IsChecked = true then
+        MediaPlayer1.Volume := 0
+      else
+        MediaPlayer1.Volume := Form3.MediaPlayer1.Volume;
       Label3.Text := '\89¹\90º\83t\83@\83C\83\8b\81F' + ExtractFileName(Form3.FIleName);
     end;
 end;