我设计了一个统计程序，因为统计时间比较长，所以想让统计时弹出一个对话框，显示统计的进度，统计完毕后这个对话框自动关闭。要用什么语

Question

我设计了一个统计程序，因为统计时间比较长，所以想让统计时弹出一个对话框，显示统计的进度，统计完毕后这个对话框自动关闭。要用什么语句或控件啊。最好写出源代码。

Answer 1

这个不算难.
用ProgressBar控件
设置好ProgressBar.Min与Max好
可以在你的统计过程中插入(如for i:=0 to Max do...)
控制ProgressBar.Position:=i;
就OK了~

Answer 2

while 统计时
begin
  Inc(progressbar.position);
end;
close;

Answer 3

那对话框怎样弹出和自动关闭呢。要在这个对话框中显示progressBar啊！！！

Answer 4

这个你恐怕要动态建一个Form,再在Form中加载ProgressBar才能实现了.
或者你直接就新建一个窗口专门搞掂这个.

Answer 5

在开始统计之前显示对话框
在统计中设置progressBar的位置
并加上Application.progressMessage语句
统计完之后关闭对话框

Answer 6

var
  i: Integer;
begin
  with ProgressBar1 do
  begin
    Min := 0;
    Max := Table1.RecordCount;
    Table1.First;
    for i := Min to Max do
    begin
      Position := i;
      Table1.Next;
    end;
  end;
end;
帮助里的，应该有启发吧。

Answer 7

呵呵，其他的方法都比较麻烦其实你可以在你的统计程序中做下面的事：在窗体上放一 Panel1组件，把它的样子设置成你喜欢的样子（你爱怎么样的就怎么样的），并可以在上面写上：“正在统计数据请少等！”。最后就是把那个进度条加在 Panel1上面了。    begin……统计开始
 Panel1.visible:=true;
   ……统计过程……
     ………… Panel1.visible:=False;
    end