主页 / 问题 / 1166127
Accepted
Татьяна
Asked:2020-08-15 03:27:29 +0800 CST2020-08-15 03:27:29 +0800 CST

进度条和备忘录

  • 772

备忘录分为三行：

11
22
33

通过单击按钮，我删除了备忘录的第一行：

Memo1.Lines.delete(0);

如何使ProgressBar在从Memo中删除的行中填充（即ProgressBar的第一行已被删除，第二，第三...）？

delphi

1 个回答

  1. Best Answer

    在第一次单击时，设置进度限制

    if FirstFlag then begin
   ProgressBar.Max := Memo1.Lines.Count;
   ProgressBar.Position := 1;
   FirstFlag := False;
end

    在随后的运行中

    else
    ProgressBar.Position := ProgressBar.Position + 1;

    以及在哪里FirstFlag问 - 由您决定逻辑应该是什么

    • 1

相关问题