Альтернатива Sleep;

[mrbadge]

Необходимо следующее: в процедуре программа должна простаивать (просто в этой процедуре дальше по коду не проходить) рандомное кол-во времени. Делаю это с помощью sleep, но в этом случае вся программа перестает отвечать на запросы (в том числе и нужные процедуры). Есть ли какая-то хорошая альтернатива sleep? Заранее благодарен

[Stilet]

Делай это в потоках.

[mrbadge]

Но при этом выполнение одной процедуры (конкретно, Timer) должно быть остановлено, а другая (в частности, FormKeyPress) продолжать работать. Ведь если сделать в двух разных потоках, то Timer все равно выполнить до конца сразу. Или можно ждать завершения потока в определенном месте кода?

[mrbadge]

Может, проще описать проблему таким образом: нужно на некоторое время остановить выполнение процедуры, но так, чтобы все остальные процедуры работали

[Прик]

Если вызов Sleep разбить на "атомы", допустим по 100 мсек (в зависимости от задачи), то в промежутках между вызовами Sleep можно выполнять все остальное.
Примерно так:

procedure NNNNNN;
var S : Integer;
begin
  Label2.Caption := 'first time'; //код до задержки

  //кусок, который выполняет задержку дальнейшего выполнения этой процедуры
  S := 100;         //10 сек (100 раз в совокупности с 100 мсек в Sleep)
  while S >= 0 do begin
    Sleep(100);
    Application.ProcessMessages;
    Dec(S)
  end;
  //окончание задержки

  Label2.Caption := 'second time';  //код после задержки
end;

Признаться не понял что значит "(конкретно, Timer)". Если это процедура обработки OnTimer, то описанный прием не прокатит, если интервал таймера меньше задержки, заданной в процедуре.
Уточнить бы.

[mrbadge]

да, конкретно пауза нужна в таймере. Делал нечто подобное, предварительно выключая, а после задержки включая таймер, но нет, именно во время задержки форма перестает перехватывать нажатия клавиш (что мне как раз и нужно), как только задержка проходит, все становится нормально

[Прик]

Application.ProcessMessages;
позволяет передавать управление системе. В приведенном примере как раз этот способ и позволяет управлять программой в то время как процедура "на тормозе".

Эксперимент показал, что и в процедуре обработки таймера прием работает.

procedure TForm1.Timer1Timer(Sender: TObject);
var S : Integer;
begin
  Timer1.Enabled := false;
  S := 100;
  while S >= 0 do begin
    Sleep(100);
    Application.ProcessMessages;
    Dec(S)
  end;
  Timer1.Enabled := True;
end;

Необходимо учитывать время задержки и время интервала таймера. Т.е. их нужно сложить чтобы получить общий интервал срабатывания таймера.

[mrbadge]

Application.ProcessMessages; Про это я знаю) Но если время задержки больше времени таймера?

[Прик]

Ну, если мы отключаем таймер (Timer1.Enabled := false), то какое это имеет значение.
После отработки задержки таймер вновь включается и вызывает свою процедуру через заданный ему интервал.

[mrbadge]

Странно) Мой эксперимент показывает, что этот вариант тоже не работает) Форма не подает никаких признаков жизни по время прокрутки while (что весьма удивительно). В необходимый FormKeyPress программа в этот момент не заходит.