Internet/IE编程

开发平台：

Delphi

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.

						