procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
begin
gauge1.progress:=0;
for i:=1 to 100 do gauge1.progress:=i;
end;
var i: integer;
begin
gauge1.progress:=0;
for i:=1 to 100 do gauge1.progress:=i;
end;
解决方案 »
- 询问一下,DELPHI调用vc dll的问题,望高人指点迷津,第一次做
- ShellExecute运行外部程序问题?
- 散分!!!!
- 怎样把 FindDialog 的查找选项 赋给 RxRichEdit.FindText的查找选项
- 请问如何返回当前dbGrid的行号?
- 如何获得主板BIOS的序列号
- 我想从vb转学dephi,看什么书比较好?
- JPG,BMP格式的文件如何转换成Ascii类型的字符图???????
- 谁帮我说说override的具体用法?详细点的书上介绍的太简单看了还是不清楚!
- 有否函数得到系统资源的使用情况,如需要得到当前系统资源的占用率?
- 求助:软件公司对开发人员该如何管理?
- 请教 DBDATETIMEPICKER 用法
var i: integer;
begin
gauge1.MinValue:=1;
gauge1.MaxValue:=10000;
gauge1.progress:=0;
for i:=1 to 10000 do gauge1.progress:=i;
end;