Показать сообщение отдельно
  #2  
Старый 26.11.2013, 15:40
Аватар для poli-smen
poli-smen poli-smen вне форума
Профессионал
 
Регистрация: 06.08.2012
Адрес: Кривой Рог
Сообщения: 1,791
Версия Delphi: Delphi 7, XE2
Репутация: 4415
По умолчанию

Цитата:
Сообщение от kti
Подскажите.. такой вопрос
Как можно приостановить работу таймера? т.е. не "убивать" его, а временно приостановить
Нет. Стандартный таймер можно либо создать, либо удалить - приостановить нельзя.

Цитата:
Сообщение от kti
смысл в том, что на медленных компьютерах не успевает отработать код процедуры таймера, и таймеры накладываются друг на друга
Чтобы не вызывалась повторно процедура до завершения своей работы, сделай переменную и при входе в эту процедуру проверяй её состояние:
Код:
SetTimer(hwnd_1C, Timer_Interval, Timer_Interval, @TimerProc1C); // устанавливаем таймер

var
  TimerEntered: Boolean = False;
.....
function TimerProc1C() 
  if TimerEntered then Exit;

  try
    TimerEntered:=True;

// Делаем что-то

  finally
    TimerEntered:=False;
  end;
end;
Ответить с цитированием