VPF::Приостановить работу программы без зависания

Jcrnd

Дата 12.2.2010, 17:23 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 43
Регистрация: 18.3.2008

Репутация: нет
Всего: нет

Нужно приостановить на время процедуру, но при этом форма не должна "зависнуть".
Т.е. нужен аналог sleep(); не замораживающий форму, если такой есть.
Подскажите, плиз. Желательно без потоков.

cemick

Дата 12.2.2010, 17:52 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 416
Регистрация: 6.7.2006
Где: Санкт-Петербург

Репутация: 2
Всего: 6

Application.ProcessMessage в цикле по таймеру?

Но без потоков это садомазо

Matematik

Дата 12.2.2010, 18:06 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1027
Регистрация: 11.3.2006

Репутация: 17
Всего: 50

Цитата(cemick @ 12.2.2010, 17:52

)

Application.ProcessMessage

Не только форма будет реагировать на действия пользователя, но и кнопки.
Надо будет запретить их нажимать - Button.Enable := False;

В противном случае возможны невеселые последствия

Код


procedure TMainForm.btn1Click(Sender: TObject);
var t:Cardinal;
begin
  ShowMessage('1');
  // ждать 10 секунд
  t := GetTickCount();
  while not Application.Terminated and ((t+10000)>GetTickCount()) do
  begin
    Application.ProcessMessages;
    Sleep(0);
  end;
  ShowMessage('2');
end;

Jcrnd

Дата 13.2.2010, 01:08 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 43
Регистрация: 18.3.2008

Репутация: нет
Всего: нет

Спасибо за советы! Пришлось все-таки потоки заюзать smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »