Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Ожидания действия не выходя из процедуры.

Автор: iddqd 23.1.2006, 13:30

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

Код


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

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

Автор: Albinos_x 23.1.2006, 14:12

Цитата(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;