Delphi7语言基础20130716-2

最新推荐文章于 2022-02-18 23:14:50 发布

火焱山

最新推荐文章于 2022-02-18 23:14:50 发布

阅读量563

点赞数

分类专栏：自学delphi

本文链接：https://blog.csdn.net/u011354184/article/details/9343447

版权

自学delphi 专栏收录该内容

45 篇文章 0 订阅

订阅专栏

进度条

在编辑时，双击进度条并不会进入语句区，要双击窗体加入如下语句：

procedure TForm1.FormCreate(Sender: TObject);
Var
Count:Integer;
begin
Count:=100000;
Progressbar1.Min:=0;{在Progressbar1.后跳出的语句提示有StepIt}
Progressbar1.Max:=Count;
end;

双击button按钮，进入相应语句区，如下语句：

procedure TForm1.Button1Click(Sender: TObject);
Var
i:Integer;
begin
Form1.ProgressBar1.Position;{这里的Position不懂是什么意思}
For i:=1 to 100000 do
Form1.ProgressBar1.StepIt;{奇怪在这里写好ProgressBar1.后跳出的语句提示并没有StepIt,但是编译出来又没问题}
end;

感谢babydog01和sololie的热心帮助。

http://bbs.csdn.net/topics/390519749?page=1#post-395051567