Скачать: CL | DM;

Как приостановить процесс работы проги?   Найти похожие ветки 

← →
kilop   (2006-03-12 23:38) [0]

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

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

---

← →
Petr V. Abramov ©   (2006-03-13 01:11) [1]

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

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

---

← →
kilop   (2006-03-13 01:14) [2]

---

← →
Плохиш ©   (2006-03-13 01:21) [3]

> kilop   (13.03.06 01:14) [2]

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

---

← →
Defunct ©   (2006-03-13 01:31) [4]

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;

---

← →
Defunct ©   (2006-03-13 01:33) [5]

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

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

---

← →
begin...end ©   (2006-03-13 08:40) [6]

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

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

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

---

← →
Defunct ©   (2006-03-14 07:21) [7]

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-14 07:41) [8]

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

LOL

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

---

← →
Defunct ©   (2006-03-14 09:57) [9]

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

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

---

← →
begin...end ©   (2006-03-14 10:05) [10]

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.025 c