Question

我有一个信息点,其基础是处理向其传递的信息。由于在校方的一些活动可能是科索沃法院联盟的指挥,因此这些活动是在协同进行的。不久,Schronize被称作read。样本代码:

TMessageQ = class (TThread)
...
procedure TMessageQ.do_msg;
begin
   case CurrentMessage.Command of
      cQSize:  if Assigned (OnSize)  then OnSize  (CurrentMessage);
      cQReady: if Assigned (OnReady) then OnReady (CurrentMessage);
   end; // case
end; // do_msg /

procedure TMessageQ.doTask (Sender: TObject);
begin
   while FQ.Count > 0 do
   begin
      FSection.Enter;
      try
         CurrentMessage := FQ.Dequeue;
      finally
         FSection.Leave;
      end; // try..finally
      Synchronize (do_msg);
   end; // while
end; // doTask //

从来没有处理过任何 do。有些人知道我做了什么错误?

Answer 1

<代码>TThread.Synchronize(各栏,直至主线处理请求。主要读物需要一种积极的信号循环,以便处理申请(除非你人工打上<代码>申请)。 ProcessMessages(或CheckSynchronize() 如果总是通过<条码>thread.Synchronize()来援引你的主要工作,那么根本就没有必要使用透镜。你们只能用时间或习惯的窗口信息,而不是主线,并顾及所有不必要的复杂性。

友情链接