标签：Tmythread1 begin tmybasethread Delphi 动态创建 线程 end Create procedure

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  tmythreadclass = class of tmybasethread;
  //基类
  tmybasethread= class(TThread)
  private
    procedure test;
   protected
     procedure Execute; override;
   public
    constructor Create(CreateSuspended: Boolean); virtual; //要设置成虚函数 不设置的话，继承的类就不会执行到create 来
  end;
 //继承派生mythread1
  Tmythread1 =class(tmybasethread)
  private
    procedure test;
   protected
     procedure Execute; override;
  public
   constructor Create(CreateSuspended: Boolean);override;
  end;


  TForm1 = class(TForm)
    btn1: TButton;
    mmo1: TMemo;
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


constructor tmybasethread.Create(CreateSuspended: Boolean);
begin
 inherited Create(False);
// Form1.mmo1.Lines.Add('tmybasethread');
end;


procedure tmybasethread.Execute;
begin
  FreeOnTerminate := True;
   Synchronize(test);
end;

procedure tmybasethread.test;
begin
 form1.mmo1.Lines.Add('tmybasethread');
end;


constructor Tmythread1.Create(CreateSuspended: Boolean);
begin
 inherited Create(False);
end;

procedure Tmythread1.Execute;
begin
 inherited;
 Synchronize(test);
end;

procedure Tmythread1.test;
begin
 form1.mmo1.Lines.Add('Tmythread1');
end;

procedure TForm1.btn1Click(Sender: TObject);
 //模仿applicaiton.createform的写法
 procedure threadcreate(athreadclass:tmythreadclass;  var mythread);
 var
  Instance: tmybasethread;
 begin
   Instance := tmybasethread(athreadclass.NewInstance);
   tmybasethread(mythread) := Instance;
   try
     Instance.Create(False);
   except
     TComponent(mythread) := nil;
     raise;
   end;
 end;

var
 my1:Tmythread1;
begin
  threadcreate(Tmythread1, my1);
  my1.Suspend;
end;

end.

标签：Tmythread1,begin,tmybasethread,Delphi,动态创建,线程,end,Create,procedure
来源： https://www.cnblogs.com/BTag/p/16370835.html

本站声明： 1. iCode9 技术分享网（下文简称本站）提供的所有内容，仅供技术学习、探讨和分享；
2. 关于本站的所有留言、评论、转载及引用，纯属内容发起人的个人观点，与本站观点和立场无关；
3. 关于本站的所有言论和文字，纯属内容发起人的个人观点，与本站观点和立场无关；
4. 本站文章均是网友提供，不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属；如您发现该文章侵犯了您的权益，可联系我们第一时间进行删除；
5. 本站为非盈利性的个人网站，所有内容不会用来进行牟利，也不会利用任何形式的广告来间接获益，纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。