Поток VCL компоненты

[IIIArtemIII]

Здравствуйте у меня возникла такая проблема есть поток в потоке выполняются действия с визуальными компонентами (ПС раньше была процедура без потока вида
Procedure PR (Fam: String; Name: String; Sym:Tmemo); но при ее выполнении все наглухо зависало до завершения
так вот в потоке все работает нормально без зависаний есть но при закрытии программы вылетает ошибка недопустимый дескриптор окна (компоненты это то же окна я так понимаю) код потока

private
    { Private declarations }
  public
    { Public declarations }
  end;

  TMyThread = class(TThread)
    private
    { Private declarations }
  protected
    procedure Execute; override;
  end;

var
  Form1: TForm1;
  MyThread: TMyThread;

procedure TMyThread.Execute;
begin
//тут как видно обращаюсь к компонентам 
memo1.text:=Fam;
listview1.items.item[0].caption:=Name;
// ну и всякое такое 
end;

вопрос как мне выполнить свою процедуру в потоке без ошибки Procedure PR (Fam: String; Name: String; Sym:Tmemo);
ей нужно 5 раз передать параметры вида

PR(‘Фамилия’, ‘Имя’, Memo1.text);

Спасибо за внимание

[Stilet]

Синхронизацию опиши в потоке.
Почитай про Synchronize. В хелпе и даже в шаблоне Thread от Делфи есть примеры.

[Shouldercannon]

Нельзя в потоке напрямую обращаться к VCL - это может вызвать фаталити.

[IIIArtemIII]

ну делаю я так объявляю глобальную переменную типа Tmemo потом ей присваиваю memo1 потом пишу synchronize(Start); где START это

procedure TMyThread.START
begin
memo1.text:=FAM;
end;

в результате ошибка недопустимый дескриптор

[Stilet]

При закрытии программ нужно все потоки завершать.
Ты когда этот поток стартуешь?

[IIIArtemIII]

а расчет происходит в процедуре execute (в потоке) то есть в место memo1.text в потоке я пишу MyMemo.text (хотя по моему я творю бред)

стартую с таймера при открытии формы запускается таймер он запускает поток
вот код

MyThread:=TMyThread.Create(False);
MyThread.Priority:=tpHighest;
MyThread.FreeOnTerminate:=true;
Timer4.Destroy;

[Stilet]

при открытии формы запускается таймер он запускает поток

Ладно. Значит в OnClose нужно проверять завершился ли этот поток, и если нет то завершать его принудительно.

Timer4.Destroy;

Просто из интереса расскажи что делает твой поток? Такие муки... Хотелось бы знать ради чего.

[IIIArtemIII]

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

Ладно. Значит в OnClose нужно проверять завершился ли этот поток, и если нет то завершать его принудительно.

Как это делать ? и разве
MyThread.FreeOnTerminate:=true; не отвечает за автоматическое завершение потока ?

[Stilet]

Вот легкий пример без синхронизации:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type

TMyThread = class(TThread)
    private
    { Private declarations }
  protected
    procedure Execute; override;
  end;

  TForm1 = class(TForm)
    Edit1: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var  tt:TMyThread;
  Form1: TForm1;

implementation

{$R *.dfm}

{ TMyThread }

procedure TMyThread.Execute;
begin
  inherited;
 while true do begin
  form1.Edit1.Text:=DateTimeToStr(now);
  sleep(5);
 end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 tt:=TMyThread.Create(false);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 if not tt.Terminated then tt.Terminate;
end;

end.

разве MyThread.FreeOnTerminate:=true; не отвечает за автоматическое завершение потока ?

Потока да, но только того, кого описывает компонент. К главному потоку он отношение не имеет. И отвечает он не за автоматическое завершение, а за уборку мусора при завершении потока из памяти, выделенной под экземпляр компонента.

[IIIArtemIII]

Stilet спасибо буду пробовать if not tt.Terminated then tt.Terminate; как я понял завершение потока ?