Question

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

比如我同时要让多条代码同时执行，目前的的只能一条一条的执行完代码以后才能接着下一个动作，能不能同时进行多个动作呢？多线程就是这个吗？

Answer 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;

Answer 2

使用多线程