Timer控制问题

哈&＃xff0c;进入Timer就enabled   :&＃61;   False;   B执行完了再True.

//会出现冲突  
  //建议判断一下是否在处理中  
   
  procedure   TForm1.Timer1Timer(Sender:   TObject);  
  begin  
      if   FRunning   then   Exit;  
      FRunning   :&＃61;   True;  
      try  
          A;  
          B;  
      finally  
          FRunning   :&＃61;   False;  
      end;  
  end;

楼上的方法也不错&＃xff0c;用线程一样会碰到这样的问题

用消息传递来控制执行顺序和时间间隔最适宜

const  
      WM_A   &＃61;   WM_User   &＃43;   1;  
      WM_B   &＃61;   WM_User   &＃43;   2;  
   
  type  
      TFormDemo   &＃61;   class(TForm)  
          procedure   FormCreate(Sender:   TObject);  
      private  
          FTickCount:   LongInt;  
          procedure   A(var   Msg:   TMessage);   Message   WM_A;  
          procedure   B(var   Msg:   TMessage);   Message   WM_B;  
      public  
          {   Public   declarations   }  
      end;  
   
  var  
      FormDemo:   TFormDemo;  
   
  implementation  
   
  {$R   *.dfm}  
   
  {   TFormDemo   }  
   
  procedure   TFormDemo.FormCreate(Sender:   TObject);  
  begin  
      PostMessage(Handle,   WM_A,   0,   0);  
  end;  
   
  procedure   TFormDemo.A(var   Msg:   TMessage);  
  begin  
      FTickCount   :&＃61;   GetTickCount;  
      {ProcessA}  
      PostMessage(Handle,   WM_B,   0,   0);  
  end;  
   
  procedure   TFormDemo.B(var   Msg:   TMessage);  
  var  
      Interval:   Integer;  
  begin  
      {ProcessB}  
      Interval   :&＃61;   GetTickCount   -   FTickCount;  
      while   Interval   <  10000   do   //假设A的执行间隔为10秒  
      begin  
          Interval   :&＃61;   GetTickCount   -   FTickCount;  
          Application.ProcessMessages;  
      end;  
      postMessage(Handle,   WM_A,   0,   0);  
  end;

我一般是设一个全局变量,A完成后设1.B发现变量为1,则进行下一步,然后再设为2.A发现为2,则下一步.

那就不要用Time来控制&＃xff0c;用递归&＃xff01;

我一般是设一个全局变量,A完成后设1.B发现变量为1,则进行下一步,然后再设为2.A发现为2,则下一步.  
  //  
  不牵扯到多线程当然可以这样&＃xff0c;你这样做还会有问题吗&＃xff1f;应该能够解决了&＃xff01;