エフェクトの完成

diff --git a/Unit1.pas b/Unit1.pas
index 90b2301..bbc3435 100644 (file)
--- a/Unit1.pas
+++ b/Unit1.pas
@@ -161,6 +161,7 @@ begin
     if ListView1.ItemIndex < ListView1.ItemCount - 1 then
     begin
       ComboBox1.ItemIndex := Random(ComboBox1.Items.Count);
+      FloatAnimation1.Stop;
       Button2Click(Sender);
     end;
   end

diff --git a/Unit3.pas b/Unit3.pas
index 242f5de..1439a8e 100644 (file)
--- a/Unit3.pas
+++ b/Unit3.pas
@@ -75,6 +75,7 @@ end;
 procedure TForm3.Button4Click(Sender: TObject);
 begin
   TrackBar1.Value := 0;
+  MediaPlayer1.CurrentTime:=0;
 end;
 
 procedure TForm3.FormCreate(Sender: TObject);