[MrDiG]

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

TThread: Create, Suspend, Resume, Terminate

Код:

 {Определение класса TMyThread}
 type
   TMyThread = class(TThread)
   private
     { Private declarations }
   protected
     procedure DoWork;
     procedure Execute; override;
   end;

 implementation

 procedure TMyThread.Execute;
 begin
 Synchronize(DoWork);
 end;

 procedure TMyThread.DoWork;
 begin
 {Сюда, как я понимаю код своей процедуры?}
 end;

На кнопочки вешаем:

TMyThread.Execute; //запуск
TMyThread.Suspend; //пауза
TMyThread.Resume; //продолжить
TMyThread.Terminate; //остановить

Я всё правильно понял?

2 friz, спасибо. Буду проверять и более простой вариант.