TTHread, Как перезапустить поток, без его уничтожения?

[Человек_Борща]

Доброго времени!

Имеется TUpdateTHread наследник TThread.

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

При этом было воможно с потоком следующее:
1. Запустить его
2. Перезапустить
3. Поставить на паузу.


Как быть?

[Kix.IV]

Можно сделать его компонентом. При создании окна будет создаваться компонент. С закрытием аналогично и вопросов не должно возникать.
С перезапуском проблемы. Можно после каждого оператора ставить проверку какого-нибудь значения. Если истина, то использовать например jump. Но это извращение, имхо.
А разве нет функций выполняющих это? На остановку точно была.

[Человек_Борща]

глупо, мне нужно упревление потоком. Обьект контролирующий поток уже есть, зачем мне делать его компонентом?

Есть Terminate, но поток останавливается полностью, но не перезапускается таким образом.

[Аватар]

Чем Suspend и Resume не подходят для паузы и рестарта?

[Кольша]

Пауза/Play:

Thread.Suspended:=not Thread.Suspended;

Перезапуск:

type
TUpdateTHread=class(TThread)
...
needrest:boolean;
.....
    Protected 
      Procedure Execute; override;
  Public 
    Constructor Create(CreateSuspended: boolean); 
 destructor Destroy; override;
  end;

....
constructor TUpdateTHread.Create(CreateSuspended: boolean);
begin
  inherited Create(CreateSuspended); 
needrest:=false;
end;
....
procedure TUpdateTHread.Execute;
var
label
  GotoLabel;
begin
GotoLabel:
....
if needrest then Goto GotoLabel;
....
end;
Thread.needrest;

как то так...

[Kix.IV]

Кольша, именно это я имел в виду.
Человек_Борща, тогда создавай на OnCreate формы и уничтажай на OnDestroy. Это же логично.
Аватар, а как с помощью resume и suspend перезапустить?

[Аватар]

Аватар, а как с помощью resume и suspend перезапустить?

Перезапустить ни как, а сделать паузу и продолжить работу после паузы аж бегом

[Кольша]

да я просто не успел написать вы меня опередили

[Kix.IV]

А можно изменить в потоке регистр CS:IP(кажись так называется)?

[Kix.IV]

Кажется функция SetThreadContext может менять регистры. Копай в эту сторону.
Если найдёшь, то отпишись пожалуйста. Стало интересно.