等待界面，执行某操作出现一个提示框，进度条显示正在执行

最新推荐文章于 2021-01-15 10:14:23 发布

原创最新推荐文章于 2021-01-15 10:14:23 发布 · 4.6k 阅读

2 ·

CC 4.0 BY-SA版权

文章标签：

#application

delphi 专栏收录该内容

12 篇文章

订阅专栏

本文介绍了一种在Delphi中实现窗体更新的方法，通过使用ProcessMessages和改变光标样式来提升用户体验。此外，还展示了如何操作进度条来反馈后台任务的进度。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

if   assigned(Frm_Wait)   then   freeandnil(Frm_Wait);
Frm_Wait:=TFrm_Wait.Create(application);
Frm_Wait.Show   ;                            //Frm_Wait是个等待窗体，里面含有进度条

application.ProcessMessages;             //注意这里很重要，它可以让操作系统处理等待窗体的动作
screen.Cursor:=crHourGlass;                 //将光标显示酒杯
//这里处理事件，在里面同时让Frm_Wait里面的进度条动起来

Frm_Wait.ProgressBar1.Max:=100;
Frm_Wait.ProgressBar1.Position:=0;

//do something1
Frm_Wait.ProgressBar1.Position:=10;
//do something2
Frm_Wait.ProgressBar1.Position:=20;
//do something3
Frm_Wait.ProgressBar1.Position:=30;
//do something4
Frm_Wait.ProgressBar1.Position:=60;

application.ProcessMessages;
Frm_Wait.ProgressBar1.Position:=100;

application.ProcessMessages;
Frm_Wait.Close;
screen.Cursor:=crDefault;