Коллизии потоков

← →
Внук (2001-12-26 10:27) [1]

Прошу прощения, нет времени совсем. Попробуйте примерно так (даже не компилировал).

TmyThread=class(TThread)
private
f:TForm;
protected
procedure Execute;override;
procedure CloseForm;

Procedure Form1.onBtnClick (Sender: TObject);
var thread:TmyThread;
begin
thread:=Tmy_thread.Create(true);
thread.f:=Self;
thread.Resume;
myForm.ShowModal;
end;

Procedure TMyThread.CloseForm;
begin
f.ModalResult:=mrOk;
end;

Procedure TMyThread.Execute;
begin
while not Terminated do
begin
...
end;
Syncronize(CloseForm);
end;

А вообще, почитайте про синхронизацию потоков.

Коллизии потоков Найти похожие ветки