| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как приостановить процесс работы проги? [D7]

kilop ©   (2006-03-12 23:38:00) 

for i:=1 to 5 do showmessage('Word');

выводиться пять раз сообщение 'Word', причем пока мы не нажмем кнопку ОК то дальше шаг не пойдет, как мне это осуществить, но только нажимая кнопку на форме, а не в сообщении. Спасибо

---

begin...end   (2006-03-14 10:05:00) [1]

> Defunct ©   (14.03.06 09:57) [9]

Чем хамить, лучше поясните, выполнение какого потока приостанавливает вызов ShowMessage.

---

Defunct   (2006-03-14 09:57:00) [2]

begin...end ©   (14.03.06 07:41) [8]

Или ты действительно такой тугодум или тебе просто захотелось повыстебываться по терминологии?

---

begin...end   (2006-03-14 07:41:00) [3]

> Defunct ©   (14.03.06 07:21) [7]

LOL

И где в этой цитате хоть слово о каких-либо потоках?

---

Defunct   (2006-03-14 07:21:00) [4]

begin...end ©   (13.03.06 08:40) [6]

Ой!
ShowModal F1

A modal form is one where the application can’t continue to run until the form is closed.

---

begin...end   (2006-03-13 08:40:00) [5]

> Defunct ©   (13.03.06 01:33) [5]

> Автор вопроса приостанавливал выполнение потока модальным
> диалогом

Чушь. ShowMessage не приостанавливает никаких потоков.

---

Defunct   (2006-03-13 01:33:00) [6]

> А что надо осуществить-то???

А что непонятного-то? В сабже все написано. Автор вопроса приостанавливал выполнение потока модальным диалогом, а теперь ему требуется то же самое только без доп. модальных окон.

---

Defunct   (2006-03-13 01:31:00) [7]

kilop   (12.03.06 23:38)  

Примерно так:

var flag: boolean;

procedure Suspend;
begin
  flag := false;
  while not flag do
  begin
     sleep(1);
     Application.ProcessMessages;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  flag := true;
end;

...
for i := 1 to 5 do Suspend;

---

Плохиш   (2006-03-13 01:21:00) [8]

> kilop   (13.03.06 01:14) [2]

Хм, очень информативно.

---

kilop   (2006-03-13 01:14:00) [9]

---

Petr V. Abramov   (2006-03-13 01:11:00) [10]

> выводиться пять раз
без мягкого знака

> for i:=1 to 5 do showmessage('Word');
> ОК то дальше шаг не пойдет, как мне это осуществить,
 А что надо осуществить-то???

---

Наверх