unit6.pas

来自「非常实用本人心血研制不是为了更多我需要的代码不会轻易拿出来换东东的关于盘刻录程序」· PAS 代码 · 共 34 行

unit Unit6;

interface

uses
  Classes;

type
  jk01 = class(TThread)
  private
    { Private declarations }
  protected
    procedure Execute; override;
      public
  //设置一个TEdit句柄
  constructor create(ss:TStrings);

  end;

implementation

                constructor jk01.create(ss:TStrings) ;
begin
  inherited create(true);

end;

procedure jk01.Execute;
begin
  { Place thread code here }
end;

end.