Текущий архив: 2004.06.13;
Скачать: CL | DM;

Вниз

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]

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

---

← →
Семен Сорокин ©   (2004-05-29 12:37) [2]

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

---

Страницы: 1 вся ветка

Текущий архив: 2004.06.13;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.041 c