首页 > TAG信息列表 > Tmythread1
Delphi 动态创建不同线程类（继承自一个线程基类）
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; protect