如何延迟调用代码（方法）？

1. 使用 标准的 PostMessage：

   const  
     UM_MYMESSAGE = WM_USER + 1;  
   
   type  
     TForm1 = class(TForm)  
       ...  
       procedure umMyMessage(var Message: TMessage); message UM_MYMESSAGE;  
       ...  
   
   procedure <AForm>.<AcxButton>Click(Sender: TObject);  
   begin  
     {  
     <your code>  
     }  
   
     PostMessage(Handle, UM_MYMESSAGE, 0, 0);  
   end;  
   
   procedure TForm1.umMyMessage(var Message: TMessage);  
   begin  
     <your code>  
   end;

    

2. 您可以使用  TdxUIThreadSyncService 类

uses dxThreading;  

procedure <AForm>.<AcxButton>Click(Sender: TObject);  
begin  
  TdxUIThreadSyncService.EnqueueInvokeInUIThread(Sender,  
        procedure ()  
        begin  
          <your code>  
        end  
        );  
end;

示例源码下载：