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

[1147]

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

[volvo]

1:
begin
  image42.Visible:=false; image43.Visible:=true;
end;

Но в таком случае - почему бы тебе не сделать то, что я предлагал вторым вариантом? Все TImage - элементы массива. И тогда твой обработчик таймера выродится вот в такой:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  ImageArray[ind].Visible := False; // Гасим то, изображение, которое было активным
  ind := (ind + 1) mod 35; // аналог if ind<35 then Inc(ind) else ind:=0;
  ImageArray[ind].Visible := True; // Показываем следующее изображение
end;