DELPHI能不能同时执行多个事件？

2025-04-13 16:22:26

推荐回答（2个）

回答1：

TThread 使用这个多线程类

Execute 过程下面放要执行的代码

type
    Th = class(TThread)
    protected
        procedure Execute; override;
    end;

implementation

procedure Th.Execute;
begin
    FreeOnTerminate := True;   //这个参数可以设定执行完毕后自动释放实例
    //--------------执行代码--------------
end;

关于实例创建

var
    myTh: Th;
begin
    myTh := Th.Create(false);   // 默认的Create方法中的参数 false 表示立即执行  true 表示先行挂起，后调用Resume来唤醒
end;

回答2：

使用多线程