Как правельно работать с событием в потоке через форму

[bulldog5293]

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

Да содрал, не отрицаю, мануалы в моих исканиях не помогли, т.к. нечего и не понял, где вызывать event, как работать с ним в динамических потоках и как его обрабатывать

пример я брал от сюда
http://stackoverflow.com/questions/6...ignaled-or-not

[/QUOTE]

[Lime]

Ребят, а что нынче здесь одни только тролли? Человек просит помощи. Нравится в какой форме и можеш помочь - помоги. Не нравится и/или не можешь помочь - пройди мимо.

[GunSmoker]

т.к. нечего и не понял, где вызывать event

Такой вопрос: под событием вы что понимаете?

как работать с ним в динамических потоках и как его обрабатывать

Может быть вы озвучите свой X? Уж наверняка у вас задача не стоит: "всенепременно использовать событие"?

Человек просит помощи.

Какой вопрос - такой и ответ.

[bulldog5293]

Я сделал так, в конструкторе создаю событие

constructor Tmythread.Create(CreateSuspended: Boolean;);
begin
  inherited Create(CreateSuspended);
  aEvent:=CreateEvent(nil,True,False,nil);
end;

В нужном месте потока, работаю с событием так

ResetEvent(aEvent); //ставим событие в бессигнальное состояние...
turn:=false;
FH.get('http://' + FUrl +'/'+sap+'.php', img);
WaitForSingleObject(aEvent,INFINITE);
turn:=True;

А в форме обрабатываю так

var
  Form2: TForm2;
  turn: boolean = true;
  aEvent:THandle;

procedure TForm2.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
button1.Click;
     SetEvent(aevent);  
end;

Но в потоке когда должен вызваться get программа виснет