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

← →
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 © (14.03.06 07:41) [8]

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

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

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

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