Thread

← →
FireMan_Alexey © (2004-05-28 19:13) [0]

Ув. Мастера!
Делаю так:

type
T = class(TThread)
private
{ Private declarations }
protected
procedure Execute; override;
end;

implementation

procedure T.Execute;
begin
While not Terminated do;

{ Place thread code here }
end;

Var
T1:T;

procedure TForm1.FormCreate(Sender: TObject);
begin
T1:=T.Create(True);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
T1.Terminate;
T1.Free;// Здесь Thread Error(87)
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
T1.Resume;
end;

Как от єтого избавиться,
не применяя FreeOnTerminate?

← →
Palladin © (2004-05-29 06:13) [1]

У меня есть яблоко, мне нужна половина этого яблока, как мне ее получить ничего не делая с этим яблоком.

procedure TForm1.FormDestroy(Sender: TObject);
begin
T1.Terminate;
T1.WaitFor;
T1.Free;
end;

Thread Найти похожие ветки