如何查询TEvent的状态？附多线程TEvent实现代码

当然有办法查询TEvent的状态啦！在Delphi中，你可以通过两种简单的方式来判断TEvent是否处于触发状态，结合你的多线程代码，我来给你详细说明：

1. 使用TEvent自带的WaitFor方法（推荐） #

TEvent的WaitFor方法支持传入超时时间，当你传入0时，它会立即返回结果，不会阻塞线程：

• 如果返回值是wrSignaled，说明事件当前处于触发状态
• 如果返回值是wrTimeout，说明事件当前处于未触发状态

你可以在你的TWorkerThread类中添加一个方法来封装这个判断：

function TWorkerThread.IsEventSignaled: Boolean;
begin
  // 立即查询状态，不阻塞
  Result := FSignal.WaitFor(0) = wrSignaled;
end;

2. 结合Windows API直接操作事件句柄 #

因为TEvent底层封装了Windows的事件内核对象，你也可以用WaitForSingleObject API来查询：

uses Windows; // 需要引用Windows单元

function TWorkerThread.IsEventSignaled: Boolean;
begin
  // 0表示立即超时，不等待
  Result := WaitForSingleObject(FSignal.Handle, 0) = WAIT_OBJECT_0;
end;

对你现有代码的小建议 #

看了你的线程执行逻辑，是通过队列取任务、无任务则等待事件唤醒，这个思路没问题，但有个小细节可以优化：
你在判断队列是否为空后，如果为空才调用WaitFor，但在TMonitor释放到调用WaitFor的间隙，可能队列已经被其他线程加入了任务，这时候线程还是会进入等待，导致任务延迟处理。

更好的做法是把等待逻辑和队列检查结合起来，比如用Delphi XE及以上自带的TThreadedQueue（自带信号唤醒的线程安全队列），或者在唤醒事件后重新检查队列。不过这部分是额外优化，核心还是解决你查询TEvent状态的问题~

内容的提问来源于stack exchange，提问作者zeus