Иллюстрированный самоучитель по Kylix


Листинг 14 2 Заготовка для ноиого объукта потока



Листинг 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;).
Назад
Начало
Вперед


Начало Назад Вперед


Книжный магазин