[SpectraL]

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

[NumLock]

Код:

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

[SpectraL]

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

Код:

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]

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

[SpectraL]

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

[SpectraL]

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

[SpectraL]

Событие 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]

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

[SpectraL]

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

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

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

[Alex_4444]

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

[Facepalm]

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

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

<CENSORED>
4250