Ошибка после воспроизведения mp3-мелодий

[Митяй2]

Ошибка оказывается возникает в модуле Forms.pas (НО КАК ОТ НЕЁ ИЗБАВИТЬСЯ?) !!!!:

ЗДЕСЬ: if FControl.FAutoScroll then

procedure TControlScrollBar.CalcAutoRange;
var
I: Integer;
NewRange, AlignMargin: Integer;

procedure ProcessHorz(Control: TControl);
begin
if Control.Visible then
case Control.Align of
alLeft, alNone:
if (Control.Align = alLeft) or (Control.Anchors * [akLeft, akRight] = [akLeft]) then
NewRange := Max(NewRange, Position + Control.Left + Control.Width);
alRight: Inc(AlignMargin, Control.Width);
end;
end;

procedure ProcessVert(Control: TControl);
begin
if Control.Visible then
case Control.Align of
alTop, alNone:
if (Control.Align = alTop) or (Control.Anchors * [akTop, akBottom] = [akTop]) then
NewRange := Max(NewRange, Position + Control.Top + Control.Height);
alBottom: Inc(AlignMargin, Control.Height);
end;
end;

begin
if FControl.FAutoScroll then
begin
if FControl.AutoScrollEnabled then
begin
NewRange := 0;
AlignMargin := 0;
for I := 0 to FControl.ControlCount - 1 do
if Kind = sbHorizontal then
ProcessHorz(FControl.Controls[I]) else
ProcessVert(FControl.Controls[I]);
DoSetRange(NewRange + AlignMargin + Margin);
end
else DoSetRange(0);
end;
end;

TControlScrollBar.CalcAutoRange вызывается в:


procedure TScrollingWinControl.WMSize(var Message: TWMSize);
var
NewState: TWindowState;
begin
Inc(FAutoRangeCount);
try
inherited;
NewState := wsNormal;
case Message.SizeType of
SIZENORMAL: NewState := wsNormal;
SIZEICONIC: NewState := wsMinimized;
SIZEFULLSCREEN: NewState := wsMaximized;
end;
Resizing(NewState);
finally
Dec(FAutoRangeCount);
end;
FUpdatingScrollBars := True;
try
CalcAutoRange;
finally
FUpdatingScrollBars := False;
end;
if FHorzScrollBar.Visible or FVertScrollBar.Visible then
UpdateScrollBars;
end;

[Миша]

место с:

if ((MultimediaType=midi) or (MultimediaType=mp3) or (MultimediaType=wav) or (MultimediaType=mp3full) or (MultimediaType=wavfull)) then

Не лучше ли написать if MultimediaType in [midi,mp3,wav,mp3full,wavfull] then...
А на щёт ошибки я думаю что у тебя чтото не так с драйверами в Windows.

[mihali4]

Возникающая ошибка (484) характерна для случаев обращения не к тому контролу или к несуществующему, что и может возникать при закрытии формы.
Кстати, а почему при закрытии программы идет вся эта хитромудрая обработка скроллов? Вам не кажется, что в этом случае ее надо перекрыть?

[Митяй2]

для Миша: верно удобнее

для mihali4: Да вот бы мне самому знать почему это происходит.

[Митяй2]

Вся проблема была оказывается в:

Всегда было: TimerEstimate.enabled=true

procedure TFmMelody.TimerEstimateTimer(Sender: TObject); 
begin 
   if LbMelody.Count*(LbMelody.ItemIndex+1)<>0 then 
     Begin 
      TimeOfPreListen:=TimeOfPreListen+Round(TimerEstimate.Interval/1000); // Увеличиваем время затраченное на просмотр. 
      LbEstimate.Caption:='Просмотрено '+IntToStr(Round((LbMelody.ItemIndex+1)*100/LbMelody.Count))+'% мелодий. Вы ещё будете просматривать и прослушивать '+GetLengthOfMelodyInMinSec(Round(TimeOfPreListen*LbMelody.Count/(LbMelody.ItemIndex+1)-TimeOfPreListen))+' (оценочно), прослушиваете: '+GetLengthOfMelodyInMinSec(TimeOfPreListen); 
     End; 
end;

теперь оценку времени оставшегося до окончания прослушивания списка мелодий включаю только при Form.Activate, а выключаю при Form.FormCloseQuery