Как использовать событие TThread.OnTerminate?

SpectraL · #1 14.03.2015, 17:24

Напишите пожалуйста пример.

NumLock · #2 14.03.2015, 17:39

Код:

procedure TForm1.FormCreate(Sender: TObject);
var
  tt: TThread;
begin
  tt.OnTerminate:=FormCreate;
end;

SpectraL · #3 14.03.2015, 18:53

Чего не хватает в следующем коде?

Код:

unit Unit2;
 
interface
 
uses
  {модули};
 
type
  TThread1 = class(TThread)
  protected
    procedure Execute; override;
    procedure DoTerminate1;
  end;
 
var
  Thread1: TThread1; // поток создаётся в TForm1.FormCreate
 
implementation
 
procedure TThread1.Execute;
begin
  Thread1.OnTerminate := Thread1.DoTerminate1;
  {операторы}
end;
 
procedure TThread1.DoTerminate1;
begin
  {операторы}
end;
 
end.

NumLock · #4 14.03.2015, 18:57

см. 2-е сообщение

SpectraL · #5 14.03.2015, 18:59

Еды что ли не хватает?

SpectraL · #6 14.03.2015, 19:11

Пожалуйста скажите я в отчаинии.

SpectraL · #7 15.03.2015, 11:08

Событие OnTerminate используется следующим образом:

Код:

unit Unit2;
  
interface
  
uses
  {модули};
  
type
  TThread1 = class(TThread)
  protected
    procedure Execute; override;
    procedure DoTerminate; override; // объявляем процедуру события OnTerminate
  end;
  
var
  Thread1: TThread1; // поток создаётся в TForm1.FormCreate
  
implementation
  
procedure TThread1.Execute;
begin
  {операторы}
end;
  
procedure TThread1.DoTerminate; // процедура события OnTerminate
begin
  {операторы}
end;
  
end.

NumLock · #8 15.03.2015, 11:16

абсолютно не правильно!!! DoTerminate является виртуальным методом и вызывается после Execute. событие OnTerminate вызывается внутри DoTerminate и выполняется в основном потоке.

SpectraL · #9 15.03.2015, 13:39

Цитата:

Сообщение от NumLock

абсолютно не правильно!!! DoTerminate является виртуальным методом и вызывается после Execute. событие OnTerminate вызывается внутри DoTerminate и выполняется в основном потоке.

В Delphi XE7, процедура DoTerminate выполняется:
1. в дополнительном потоке;
2. после завершения процедуры Execute, т.к. DoTerminate изначально связана с OnTerminate, которую нет необходимости вызывать.

Alex_4444 · #10 15.03.2015, 19:46

Какого вам еще надо? Сам спросил сам ответил что ли? Вопрос правильно сформулируй. Ходют тут всякие...
Во втором сообщении тебе ответ.
РС: хочешь правильный ответ - задавай правильный вопрос.

Facepalm · #11 15.03.2015, 22:34

Цитата:

Сообщение от Alex_4444

...Ходют тут всякие...

<CENSORED>
4250

Опции темы	Поиск в этой теме
Версия для печати Отправить на Email	Поиск в этой теме: Расширенный поиск
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

	Сайт	Форум	FAQ	Соглашения	Прочее
	Новости Исходники Компоненты Статьи Добавить исходник Поиск	Правила Поиск Сообщения за сегодня Пользователи Кто на форуме?	Delphi FAQ - 5000 статей DRKB - 4500 статей (ZIP-архив) Справочник функций и процедур Delphi Delphi Programming Guide Indy in Depth. Глубины Indy	Конфиденциальность Соглашение пользователя Правила обработки cookie	О сайте Donate Контакты

Этот пользователь сказал Спасибо NumLock за это полезное сообщение:
SpectraL (14.03.2015)