我无法在 Delphi 中重新绘制表单

发布于 2024-12-27 01:48:10 字数 286 浏览 0 评论 0原文

我正在创建一个 Delphi 程序，并且我的程序中有以下代码：

begin
  if edit1.Text='salam' then
  begin
    for i := 1 to 10 do
    begin
      progressbar1.Value := progressbar1.Value+1;
      sleep(100);
    end;
  end;
end;

我想让进度条顺利移动。但这段代码不是这样的。
我应该怎么办？我想在睡觉后重新绘制表格。

原文

I'm creating a Delphi program and i have this code in my program:

begin
  if edit1.Text='salam' then
  begin
    for i := 1 to 10 do
    begin
      progressbar1.Value := progressbar1.Value+1;
      sleep(100);
    end;
  end;
end;

I wanna have the progressbar moving smoothly. But this code isn't like that.
What should i do? I wanna repaint the form after sleep.

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

变身佩奇 2025-01-03 01:48:10

你应该这样做...

begin
  if edit1.Text='salam' then
  begin
    progressbar1.Step:=1;
    for i := 1 to 10 do
    begin
      progressbar1.StepIt;
      Application.ProcessMessages;
      Sleep(100);
    end
  end;
end;

Windows 需要处理消息来重绘并知道你的应用程序没有被冻结，Application.ProcessMessages 就可以做到这一点。

You should do it like this...

begin
  if edit1.Text='salam' then
  begin
    progressbar1.Step:=1;
    for i := 1 to 10 do
    begin
      progressbar1.StepIt;
      Application.ProcessMessages;
      Sleep(100);
    end
  end;
end;

Windows needs to process the messages to repaint and to know your app isn't frezzed, Application.ProcessMessages does that magic.

回复收藏 0 原文

~没有更多了~