Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.022 c
14-1085642308
Карелин Артем
2004-05-27 11:18
2004.06.13
... - тип БД: IB4.x; IB5.x; IB6.x; .......


4-1083832354
Аноним
2004-05-06 12:32
2004.06.13
Отмена минимизации окна


1-1086097223
denis24
2004-06-01 17:40
2004.06.13
длинный путь к файлу


1-1085818423
BDRON
2004-05-29 12:13
2004.06.13
reset для файла на CD-ROM


14-1085373809
Паниковский
2004-05-24 08:43
2004.06.13
Как зовут ICQ под Линухом и как ее настраивать?