Заготовка для ноиого объукта потока
Листинг 14.2. Заготовка для ноиого объукта потока
unit Unit1; interface
uses Classes;
type
TMyThread = class(TThread) private
{ Private declarations }
protected
procedure Execute; override;
end;
implementation
{ Важно: Методы и свойства объектов CLX могут быть использованы только
с помощью вызова метода синхронизации, например
Synchronize(UpdateCaption);
и UpdateCaption должно выглядеть следующем образом:
procedure TMyThzead.UpdateCaption;
begin
Form1.Caption := 'Обновлено внутри потока'; end; }
{ TMyThread }
procedure TMyThread.Execute; begin
{ Разместите код потока здесь } end;
end.
В автоматически сгенерированном файле, модуля вы можете:
- инициализировать поток;
- заполнить метод Execute объекта потока, разместив там функции и процедуры;
- написать код гарантированного разрушения потока (например, строку FreeOnTerminate: =True;).
Назад
Содержание
Вперед
