我正在使用delphi制作一个应用程序,下面是我的代码片段
pnlMenu1.Visible := True;
Sleep(5000);
pnlMenu1.Visible := False;
pnlMenu2.Visible := True;我需要用户在Sleep()运行时仍然能够做一些事情,但是Sleep()停止了停止程序的主线程。有什么可以用它来代替睡眠()的吗?比如:
pnlMenu1.Visible := True;
//Wait 5 seconds but dont holt main thread
pnlMenu1.Visible := False;
pnlMenu2.Visible := True;发布于 2022-08-27 14:11:35
使用TTimer。启用使pnlMenu可见后的时间,并从OnTimer事件中,将处理的其余部分放入其中。
您可以使用“等待循环”来调用ProcessMessages,但是这有很多困难(重新输入事件),所以当用户单击各处时,要小心测试您的应用程序。
发布于 2022-08-27 11:55:22
我找到了解决办法。对于任何有同样问题的人:
在代码中添加以下内容:
procedure Delay(dwMilliseconds: Longint);
var
iStart, iStop: DWORD;
begin
iStart := GetTickCount;
repeat
iStop := GetTickCount;
Application.ProcessMessages;
Sleep(1);
until (iStop - iStart) >= dwMilliseconds;
end;然后将“睡眠(时间)”改为“延迟(时间)”
所以:
Sleep(5000);替换为
Delay(5000);https://stackoverflow.com/questions/73510349
复制相似问题