按钮单击上的进度条

Question

使用以下YouTube视频http://www.youtube.com/watch?v=ePuCsvwoHMo的帮助我想通过ZERO Delphi体验点击按钮上的进度条移动（进度）。

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

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

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

Answer 1

创建一个新的VCL项目。在主表单上删除TButton和TProgressBar。

现在，双击按钮，然后写

ProgressBar1.StepBy(1)

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

如果您希望进度条自行移动，则需要TTimer，因此请将其中的一个放到主窗体上。使用Object Inspector将其Enabled属性设置为false。另外，将Interval设置为60。

现在，双击计时器，然后写

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

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

Timer1.Enabled := not Timer1.Enabled;

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