如何延迟调用代码(方法)?

如何延迟调用代码(方法)?-Delphi编程技巧大全
如何延迟调用代码(方法)?
此内容为付费阅读,请付费后查看
10积分
付费阅读
  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;

示例源码下载:

 

THE END
文章版权归作者所有,未经允许请勿转载。
点赞10赞赏
评论 抢沙发
头像
欢迎您留下宝贵的见解!
提交
头像

昵称

取消
昵称表情代码图片