Показать сообщение отдельно
  #8  
Старый 02.09.2012, 19:38
Аватар для YVitaliy
YVitaliy YVitaliy вне форума
Местный
 
Регистрация: 14.12.2011
Сообщения: 481
Версия Delphi: Borland Delphi7
Репутация: 17
По умолчанию

потому что:
Код:
procedure  TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
 if OpenDialog1.Execute then
begin
   MediaPlayer1.FileName:=OpenDialog1.FileName;
   MediaPlayer1.Open;
   MediaPlayer1.Play;
   LengthBar.Max:=MediaPlayer1.Length;
   LengthBar.Min:=MediaPlayer1.StartPos;
   Timer1.Enabled:=True;

end;————————>вот эту строку
  begin
    ClearWavInfo(WavInfo);
    tcDrawWav.Tabs.Clear;
    pbDrawWav.Invalidate;

    try
      ReadWavInfo(OpenDialog1.FileName, WavInfo);
    except
      ClearWavInfo(WavInfo);
      raise;
    end;

    sbTimePos.Position := sbTimePos.Min;
    sbTimePos.PageSize := 0;
    sbTimePos.Max := Max(WavInfo.NumSamples + sbTimePos.Min - 1, sbTimePos.Min);
    sbTimePos.PageSize := WavInfo.NumSamples div tbTime.Position;

    for i := 1 to WavInfo.WaveFormat.nChannels do
    begin
      tcDrawWav.Tabs.Add('Channel ¹' + IntToStr(i));
    end;

    pbDrawWav.Invalidate;
————————>нужно перенести сюда
  end;
Ответить с цитированием