06.08.2009, 07:03
|
|
Reservists Of Antichat - Level 6
Регистрация: 12.02.2006
Сообщений: 891
Провел на форуме:
1892597
Репутация:
836
|
|
Сообщение от narik_
procedure ge.Execute;
begin
try
Synchronize(unit1.Form1.porgr);
self.Terminate;
self.Free;
self.Destroy;
except
Synchronize(unit1.Form1.porgr);
self.Terminate;
self.Free;
self.Destroy;
end;
end;
o_O
Пишу по памяти...
Ты наследушься от класса TThread.
перекрываешь метод Execute;
При необходимости пишешь свой конструктор, деструктор.
PHP код:
constructor Create(CreateSuspended: Boolean);
begin
self.FreeOnTerminate:=true;
end;
procedure ge.Execute; override
begin
try
SomeLogic
except
self.Terminate;
finally
Synchronize(unit1.Form1.porgr);
end
имхо... хотя мог и ошибиться, забыл уже дельфи =(
__________________
*********************************
*Я не волшебник ٩(๏̯͡๏)۶, только учусь...*
*********************************
Программы на заказ
Times to fly...
|
|
|