copythread.pas

来自「delphi 文件拷贝的超级源码,值得收藏喔」· PAS 代码 · 共 42 行

unit CopyThread;

interface

uses
  Classes;

type
  TCopyThread = class(TThread)
  private
    FOnSignal: TNotifyEvent;
  protected
    procedure Execute; override;
    procedure DoOnSignal;
  public
    constructor Create(cPriority: TThreadPriority);
    property OnSignal: TNotifyEvent read FOnSignal write FOnSignal;
  end;

implementation

constructor TCopyThread.Create(cPriority: TThreadPriority);
begin
  inherited Create(False);
  Priority := cPriority;
  FreeOnTerminate := true;
end;

procedure TCopyThread.Execute;
begin
  while not Terminated do
    Synchronize(DoOnSignal);
end;

procedure TCopyThread.DoOnSignal;
begin
  if assigned(FOnSignal) then
    FOnSignal(Self);
end;

end.