VPF::Ожидания действия не выходя из процедуры.

iddqd

Дата 23.1.2006, 13:30 (ссылка)

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

Загрузка ...

Опытный

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

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

Мне необходимо внутри процедуры дождаться нажатия кнопки.
Например:

Код


procedure test;
var
a, b: integer;
begin
a:=b;
//и тут ждать до тех пор пока не будет нажата кнопка
//и если дождались, то
b:=a;
end;

Я знаю, что надо что-то с Mutex и WaitForSingleObject(), но как правильно применить не знаю. Помогите, пожалуйста.

--------------------

Albinos_x

Дата 23.1.2006, 14:12 (ссылка)

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

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

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

Цитата(iddqd @ 23.1.2006, 13:30

)

Я знаю, что надо что-то с Mutex и WaitForSingleObject(), но как правильно применить не знаю. Помогите, пожалуйста.

можно и без них обойтись:

Код


var boo:boolean = true;

procedure test;    
var    
a, b: integer;    
begin    
a:=b;    
//и тут ждать до тех пор пока не будет нажата кнопка    
while boo do
   Application.ProcessMessages;
boo:=true;
b:=a;    
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
...
boo:=false;
end;

--------------------

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

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