Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.03.26;
Скачать: 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 вся ветка

Текущий архив: 2006.03.26;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.052 c
5-1127897094
voe
2005-09-28 12:44
2006.03.26
Подскажите компонент


5-1127855926
Proxytel
2005-09-28 01:18
2006.03.26
Как отловить клик над конкретной ячейкой StringGrid ?


15-1140039304
Piter
2006-02-16 00:35
2006.03.26
Заправка картриджей!


2-1142240964
mrAndersen
2006-03-13 12:09
2006.03.26
Как добавить *.gif файл на форму?


15-1141624851
Ega23
2006-03-06 09:00
2006.03.26
С Днём рождения! 4 марта