торможение Ttimer - ? Опции

[1147]

Такая ситуация: 6 таймеров работают одновременно, у трех из них интервал 50 у остальных 70. При этом переходы между изображениями, которые меняют таймеры, сильно тормозят. Стоит включить 7й таймер, одновременно работающий с остальными с интервалом 70, торможение исчезает, хотя по логике, торможение должно возрасти... В чем тут может быть причина? Можно ли избежать торможение изображений?

[Client]

a:array [1..10] of TImage;
...
procedure TForm3.Button1Click(Sender: TObject);
var
  i,k:integer;
begin
  k:=0;
  for i := 0 to ComponentCount - 1 do begin
    if (Components[i] is TImage) then begin
      inc(k);
      a[k] := Components[i] as TImage;
    end;
  end;
end;

Опаздал

Сообщение отредактировано: Client - 9.04.2010 22:28