delphi - 按钮点击进度条

Question

使用以下 youtube 视频http://www.youtube.com/watch?v=ePuCsvwoHMo的帮助，我想通过零 Delphi 体验在按钮单击时获得一个进度条移动（正在进行）。

我正在尝试基于谷歌搜索和 stackoverflow 过去的类似问题，但没有运气。这单行代码（或最多两行）应该是什么样的，我在哪里输入它？

与第一个无关的第二个问题是：

是否有任何网站（网络应用程序）我可以在线使用 Delphi - 实际上是在网站上？

Answer 1

创建一个新的 VCL 项目。将 aTButton和 aTProgressBar放在主窗体上。现在，双击按钮，然后写

ProgressBar1.StepBy(1)

现在您可以通过重复单击按钮来移动进度条。

如果您希望进度条自行移动，那么您需要一个TTimer，所以将一个这样的拖放到主窗体上。使用 Object Inspector将其Enabled属性设置为。false此外，设置Interval为60. 现在，双击计时器，然后写入

ProgressBar1.Position := (ProgressBar1.Position + 1) mod ProgressBar1.Max;

返回您的表单，然后双击该按钮。删除您之前编写的代码，然后编写，

Timer1.Enabled := not Timer1.Enabled;

现在运行你的项目。您可以使用按钮切换动画（运行、停止）。