事件?a执行片段中含可能触发的b事件(比如主动送消息),b事件响应的应该是个消息吧,所以,a做a的事,b响应相应的消息就可以了的。tform1.button1click(sender:tobject);
begin
 dosomething;
 if conditionB then 
  begin
   postmessage(hbutton2,wm_mousedown,1,0);
   processmessage;//让出处理器时间,非要等固定时间的话,可以sleep(time)再执行此操作
  end;
 else dosomeotherthing;
end;tform1.button2mousedown(.....);
begin
 button2down processin...
end; end;

解决方案 »

  1.   

    BigBen(江南草):但是我怎么在A中知道是否B事件执行了呢,比如说我的程序用udp通讯的,Client端在A事件中发送一个udp包到Server,Server会返回一个udp包,在B事件(procedure DataReceieve)中接受,但由于udp是不可靠连接的,我无法知道A中发送的包是否到了Server,我想在A中以B事件是否被触发来判断(等待一定时间,若B事件未触发则视为通讯失败,执行A中指定代码),这要怎么做呢?