Что нельзя делать в DoTerminate

[Shouldercannon]

Начну с вопроса. DoTerminate это метод события OnTerminate?
Есть

unit Unit2;

interface

uses
...

type
  TForm2 = class(TForm)
    ListView1: TListView;
    PFooter: TPanel;
    PBBRefresh: TPngBitBtn;
    procedure PBBRefreshClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

type
  TMy_Thread = class(TThread)
  private
    { Private declarations }
    s: String;
  protected
    procedure Execute; override;
    procedure DoTerminate; override;
  public
  end;

var
  Form2: TForm2;
  My_Thread: TMy_Thread;

implementation

uses Utils;

{$R *.dfm}

procedure TForm2.PBBRefreshClick(Sender: TObject);
begin
  My_Thread := TMy_Thread.Create(True);
  My_Thread.FreeOnTerminate := True;
  My_Thread.Start;
end;

procedure TMy_Thread.Execute;
begin
  s := '1;2;3;4;5;';
  Terminate;
end;

procedure TMy_Thread.DoTerminate;
var
  Item: TListItem;
begin
  Form2.ListView1.SortType := stNone;
  Form2.ListView1.Items.BeginUpdate;
  Form2.ListView1.Items.Clear;

  while Pos(';', s) <> 0 do
  begin
    Item := Form2.ListView1.Items.Add;
    Item.Caption := Copy(s, 1, Pos(';', s) - 1);
    Delete(s, 1, Pos(';', s));
  end;

  Form2.ListView1.SortType := stBoth;
  Form2.ListView1.Items.EndUpdate;

  ShowForm(Form2);
end;

end.

и

unit Utils;

interface

uses
  Winapi.Windows, Vcl.Forms;

procedure ShowForm(Form: TForm);

implementation

procedure ShowForm(Form: TForm);
begin
  if Form.WindowState = wsNormal then
  begin
    Form.WindowState := wsNormal;
    Form.Show;
  end;
  if Form.WindowState = wsMinimized then
  begin
    ShowWindow(Form.Handle, SW_RESTORE);
    Form.Show;
  end;
  if Form.WindowState = wsMaximized then
  begin
    ShowWindow(Form.Handle, SW_MAXIMIZE);
    Form.Show;
  end;
end;

end.

из Form1 делаю

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2.PBBRefresh.OnClick(Self);
end;

В лучшем случае на Form2 не будет ни одного контрола в худшем - ошибки. При закрытии всего проекта - Недопустимый дескриптор.
Эксперименты показали, что из-за

ShowForm(Form2);

происходит окирпичивание.

Возникает вопрос, что нельзя делать в Doterminate для избежания других ошибок.

[come-on]

в контексте какого потока выполняется DoTerminate ?

[Аватар]

Синхронизацию нужно делать как обычно для vcl. Посмотри что в генокоде

procedure TThread.DoTerminate;
begin
  if Assigned(FOnTerminate) then Synchronize(CallOnTerminate);
end;

Он вызывается перед концом нити, но она еще живая. И чего замещать его?

[come-on]

DoTerminate это метод события OnTerminate?

что значит метод? )) если имеете ввиду что обработчик то нет, об этом в справке писано, это запускатель обработчика

[Shouldercannon]

Можно ли в DoTerminate обращаться к VCL формы?

Form2.ListView1.SortType := stNone;
  Form2.ListView1.Items.BeginUpdate;
  Form2.ListView1.Items.Clear;

  while Pos(';', s) <> 0 do
  begin
    Item := Form2.ListView1.Items.Add;
    Item.Caption := Copy(s, 1, Pos(';', s) - 1);
    Delete(s, 1, Pos(';', s));
  end;

  Form2.ListView1.SortType := stBoth;
  Form2.ListView1.Items.EndUpdate;

Или это лучше делать через Synchronize?

[Alex11223]

Предыдущие сообщения не читали?

[Аватар]

Объяви в private формы Form2 метод

procedure MyTerminate(Sender: TObject);

при создании нити

My_Thread := TMy_Thread.Create(True);
My_Thread.OnTerminate:=MyTerminate;
...

В implementation формы

procedure TForm2.MyTerminate(Sender: TObject);
begin
...здесь что хош c vcl, будет вызываться из нити синхронизированно
end;

И ни каких замен метода DoTerminate

[Shouldercannon]

Сообщение от Аватар

Объяви в private формы Form2 метод

Процедура не видит переменную поля потока - s

Сообщение от Аватар

И ни каких замен метода DoTerminate

Хм. Про замену DoTerminate я не ничего не писал.

[Аватар]

Хм. Про замену DoTerminate я не ничего не писал.

А это кто написал?

procedure DoTerminate; override;

Процедура не видит переменную поля потока - s

сделай свойством нити и читай его в OnTerminate. Sender и будет экземпляром TMy_Thread

[come-on]

а зачем вообще эта s и все с ней выкрутасы? ))