delphi 怎么使用进度条
就是在一个按钮里面写代码？
比如打开别个窗体 那个 进度条就显示出来了，然后完了 窗体也启动完了！！
怎么写代码 啊？？ 循环吗》？？？
就弄个假的啊！！！ 怎么写
不用循环，你只是要让进度条走完后，别个窗体启动，就用 时钟 组件就可以了。
把 时钟 的interval属性设置为0。
具体代码如下：
procedure TForm1.Button1Click(Sender: TObject);
begin
timer1.Interval:=200;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
ProgressBar1.Position:=ProgressBar1.Position+10;
if ProgressBar1.Position=100 then
begin
timer1.Interval:=0;
form2.Show;
end;
end;
这样当进度条走完以后，窗口2就载入完成了
把 时钟 的interval属性设置为0。
具体代码如下：
procedure TForm1.Button1Click(Sender: TObject);
begin
timer1.Interval:=200;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
ProgressBar1.Position:=ProgressBar1.Position+10;
if ProgressBar1.Position=100 then
begin
timer1.Interval:=0;
form2.Show;
end;
end;
这样当进度条走完以后，窗口2就载入完成了
温馨提示：答案为网友推荐，仅供参考
第1个回答 2009-06-09
最简单的方法是
累加进度条，加到100窗体显示
但这是假进度
正确的方法是写多线程加回调函数
窗体加载完了后主程序用用回调函数的结果显示窗体
如果是C#的话就用thread和delagte
累加进度条，加到100窗体显示
但这是假进度
正确的方法是写多线程加回调函数
窗体加载完了后主程序用用回调函数的结果显示窗体
如果是C#的话就用thread和delagte
第2个回答 2015-08-24
DELPHI7中的控件标签WIN32下有一个控件ProgressBar，就是进度条。
通过设置他的POSITION来改变进度值。
通过设置他的POSITION来改变进度值。
delphi WebBrowser1打开网页显示进度条
在使用Delphi的WebBrowser组件时，可以通过监听ProgressChange事件来显示网页加载进度。下面是一个具体的示例代码：当WebBrowser1加载网页时，会触发ProgressChange事件。在这个事件处理程序中，我们首先检查ProgressMax是否为0。如果为0，说明当前没有加载任务，此时无需更新进度条，直接返回。然后
delphi Progressbar的进度条如何显示进度值?
为了在Delphi的Progressbar上显示进度值，可以采取以下步骤。首先，在Progressbar上放置一个Label，将AutoSize属性设置为false，然后清空Label的文字，并调整其大小以适应进度条。接着，设置Label的背景色为与文字颜色相同的颜色。接下来是关键的代码部分：需要引入System.Drawing.Drawing2D命名空间。在按钮点击事...
delphi Progressbar的进度条如何显示进度值?
可以这样,在进度条上放一个Label,AutoSize设为false，文字清空,调整大小为合适,背景色设置为你要文字的颜色 加入以下代码就可以了，记得要引用using System.Drawing.Drawing2D;private void button3_Click(object sender, EventArgs e){ RegionControl(l_pshow, "100%");} private void RegionControl(C...
delphi 渐变颜色进度条 控件
image1.Canvas.MoveTo(i,0);image1.Canvas.LineTo(i,30);end;照这个修改一下就可以 答案补充 把外面的循环去掉，直接用里面的三句，把i改成处理过程的数值，多想想，才能段练设计能力 答案补充 label 的宽度不应该和进度条的宽度一样，应该是ProgressBar1.Position的最大值 ...
delphi用URLDownloadToFile下载文件,用进度条跟踪下载进度?
var DownLoadURL:TDownLoadURL;\/\/注意引用 TDownLoadURL类所在单元名称 begin DownLoadURL.URL:='';...你上面的地址也是出处转载抄袭过来的（最恨这样败类;）也可以不定义 ：with TDownloadURL.Create(self) do\/\/相当于后面都是省略了该对象直接用属性方法名称了 URL:='';...end;...
delphi xe android 更改ProgressBar1进度条颜色
1、说明 在某些操作的进度中的可视指示器，为用户呈现操作的进度，还它有一个次要的进度条，用来显示中间进度，如在流媒体播放的缓冲区的进度。一个进度条也可不确定其进度。在不确定模式下，进度条显示循环动画。这种模式常用于应用程序使用任务的长度是未知的。2、XML重要属性 android:progressBarStyle...
请教:delphi用文件流复制文件并用进度条显示进度
你这个根本就不行.liu2.CopyFrom(liu1,0);这里直接就COpy过去了.你应该定义一个buf:array[0..511]of byte.然后从liu1中读取512个字节到buf,然后把buf写到liu2中,然后inc(progressbar.position,512).until (liu1.size = liu2.size);
delphi UrlDownloadToFile的进度提示
\/\/这里写入你要显示进度的代码 end;procedure TForm1.DownLoadComplete(Sender:TFileDownLoadThread) ;begin \/\/下载完成触发事件 end;procedure TForm1.DownLoadFail(Sender:TFileDownLoadThread;Reason:LongInt);begin \/\/下载失败触发事件 end;\/\/在窗体中定义好以上三个事件之后，在调用下载线程类时作为参数...
C++Builder2010中,使用进度条控件TProgressBar时,进度条的刷新跟不...
1、C++builder的各版本中，个人以为，要么使用BDS2006，要么使用XE5以上的版本，中间的C++Builder处于上下不靠的情况。BCB6.0实在太老，代码自动完全等功能不完善所以不实用。2、玩C++Builder的多数是编程爱好者，图它方便，并用的是C++系，想说的是使用它的公司很少，所的钱途不乐观。3、话说回来，...
Delphi 程序操作过程中出错:TProgressBar property out of range_百度...
可能是你的运行时产生的进度条Position超出了最大值。这样的问题通过调试跟踪，就能够发现。现在的编程工具的调试能力非常强大，使用好，则功力大增。
在使用Delphi的WebBrowser组件时，可以通过监听ProgressChange事件来显示网页加载进度。下面是一个具体的示例代码：当WebBrowser1加载网页时，会触发ProgressChange事件。在这个事件处理程序中，我们首先检查ProgressMax是否为0。如果为0，说明当前没有加载任务，此时无需更新进度条，直接返回。然后
delphi Progressbar的进度条如何显示进度值?
为了在Delphi的Progressbar上显示进度值，可以采取以下步骤。首先，在Progressbar上放置一个Label，将AutoSize属性设置为false，然后清空Label的文字，并调整其大小以适应进度条。接着，设置Label的背景色为与文字颜色相同的颜色。接下来是关键的代码部分：需要引入System.Drawing.Drawing2D命名空间。在按钮点击事...
delphi Progressbar的进度条如何显示进度值?
可以这样,在进度条上放一个Label,AutoSize设为false，文字清空,调整大小为合适,背景色设置为你要文字的颜色 加入以下代码就可以了，记得要引用using System.Drawing.Drawing2D;private void button3_Click(object sender, EventArgs e){ RegionControl(l_pshow, "100%");} private void RegionControl(C...
delphi 渐变颜色进度条 控件
image1.Canvas.MoveTo(i,0);image1.Canvas.LineTo(i,30);end;照这个修改一下就可以 答案补充 把外面的循环去掉，直接用里面的三句，把i改成处理过程的数值，多想想，才能段练设计能力 答案补充 label 的宽度不应该和进度条的宽度一样，应该是ProgressBar1.Position的最大值 ...
delphi用URLDownloadToFile下载文件,用进度条跟踪下载进度?
var DownLoadURL:TDownLoadURL;\/\/注意引用 TDownLoadURL类所在单元名称 begin DownLoadURL.URL:='';...你上面的地址也是出处转载抄袭过来的（最恨这样败类;）也可以不定义 ：with TDownloadURL.Create(self) do\/\/相当于后面都是省略了该对象直接用属性方法名称了 URL:='';...end;...
delphi xe android 更改ProgressBar1进度条颜色
1、说明 在某些操作的进度中的可视指示器，为用户呈现操作的进度，还它有一个次要的进度条，用来显示中间进度，如在流媒体播放的缓冲区的进度。一个进度条也可不确定其进度。在不确定模式下，进度条显示循环动画。这种模式常用于应用程序使用任务的长度是未知的。2、XML重要属性 android:progressBarStyle...
请教:delphi用文件流复制文件并用进度条显示进度
你这个根本就不行.liu2.CopyFrom(liu1,0);这里直接就COpy过去了.你应该定义一个buf:array[0..511]of byte.然后从liu1中读取512个字节到buf,然后把buf写到liu2中,然后inc(progressbar.position,512).until (liu1.size = liu2.size);
delphi UrlDownloadToFile的进度提示
\/\/这里写入你要显示进度的代码 end;procedure TForm1.DownLoadComplete(Sender:TFileDownLoadThread) ;begin \/\/下载完成触发事件 end;procedure TForm1.DownLoadFail(Sender:TFileDownLoadThread;Reason:LongInt);begin \/\/下载失败触发事件 end;\/\/在窗体中定义好以上三个事件之后，在调用下载线程类时作为参数...
C++Builder2010中,使用进度条控件TProgressBar时,进度条的刷新跟不...
1、C++builder的各版本中，个人以为，要么使用BDS2006，要么使用XE5以上的版本，中间的C++Builder处于上下不靠的情况。BCB6.0实在太老，代码自动完全等功能不完善所以不实用。2、玩C++Builder的多数是编程爱好者，图它方便，并用的是C++系，想说的是使用它的公司很少，所的钱途不乐观。3、话说回来，...
Delphi 程序操作过程中出错:TProgressBar property out of range_百度...
可能是你的运行时产生的进度条Position超出了最大值。这样的问题通过调试跟踪，就能够发现。现在的编程工具的调试能力非常强大，使用好，则功力大增。
相似回答
