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

Question

我正在创建一个 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;

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

Answer 1

你应该这样做......

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 可以实现这一点。