delphi - 单击按钮上的进度条

Question

借助以下youtube视频http://www.youtube.com/watch?v=ePuCsvwoHMo的帮助，我希望通过单击按钮获得ZERO Delphi体验来移动（进行）进度条。

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

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

是否有可以在线使用Delphi的网站（Web应用程序）-实际上在该网站上？

Answer 1

创建一个新的VCL项目。在主窗体上放置一个TButton和TProgressBar。现在，双击按钮，然后编写

ProgressBar1.StepBy(1)

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

如果您希望进度条自行移动，则需要一个TTimer，因此将其拖放到主窗体上。使用对象检查器将其Enabled属性设置为false。另外，将Interval设置为60。现在，双击计时器，然后编写

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

返回到您的窗体，然后双击按钮。删除您先前编写的代码，然后编写，

Timer1.Enabled := not Timer1.Enabled;

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