delphi - 调用过程 "delayed"的最佳方法是什么？

Question

有两个过程A1和A2，它们都在代码中调用了函数B:

function B: boolean;
begin
  // do other stuff
end;

procedure A1;
begin
  // do stuff
  if b then
    ...
  // do stuff
end;

procedure A2;
begin
  // do stuff
  if b then
    A1; // <- how to call A1 "delayed"?
  // do stuff
end;

如果 A2 中的条件为真，则必须调用过程 A1，但这会在 A2 仍在运行时发生，这是我不希望的。

应该发生的是:如果 A2 中的条件为真，则 A2 应该完成，并且在离开 A2 之后应该调用过程 A1。

一个丑陋的解决方案是设置一个计时器，在确保 A2 完成的延迟后调用 A1。

但一定有更好的方法，对吧？

编辑:在我的例子中，A1 和 A2 是事件，所以它们不是由代码调用的，我不能在 A2 完成后从调用过程中调用 A1。

Answer 1

考虑到您的限制，听起来您希望在返回之前调用 PostMessage 作为 A2 中的最后一件事。应设置 PostMessage 参数以触发 A1 事件。唯一要担心的是竞争条件，但我不确定这是否会成为 Windows 消息队列的问题。