本文整理自网络,侵删。
很不错的咚咚 对线程 然后等待响应 就不会卡死窗体了。
Repeat
Ret :=WaitForSingleObject(hThread,100);
Application.ProcessMessages;
Until Ret <> Wait_Timeout ;
相关阅读 >>
Delphi tbitmap创建时提示object or class type required
Delphi firemonkey app 如何获得当前系统语言设置
Delphi xe5 for android memo控件 无法读取txt文件
Delphi application.processmessages的作用
更多相关阅读请进入《Delphi》频道 >>