www.pudn.com > ShuaQB.rar > unit_thread.pas

unit unit_thread; 
 
interface 
 
uses 
  Classes; 
 
type 
  QQJob = class(TThread) 
  private 
    { Private declarations } 
  protected 
    procedure Execute; override; 
  end; 
 
implementation 
 
{ Important: Methods and properties of objects in visual components can only be 
  used in a method called using Synchronize, for example, 
 
      Synchronize(UpdateCaption); 
 
  and UpdateCaption could look like, 
 
    procedure QQJob.UpdateCaption; 
    begin 
      Form1.Caption := 'Updated in a thread'; 
    end; } 
 
{ QQJob } 
 
procedure QQJob.Execute; 
begin 
  { Place thread code here } 
end; 
 
end.