【结贴】类似于等待条的功能**

op+

有个功能，它打开时候要持续30秒到1分钟的时间，这就需要在这段时间内弹出个提示：报表正在统计中，请等待.........。当功能打开时候，提示就消失了。
这样的功能有人做过吗？

lixin

使用ProgressBar来实现

op+

2楼的老兄，能否详细点？或者给个参考？感激！

lixin

你是在打开窗体的过程中进行数据统计了吗？

op+

是啊 。。。我有一个统计的功能，但是它统计的时候很慢，在打开统计功能的时候系统好像没上面反映了，其实它是在进行统计了，所以需要在它统计的时候提示用户：数据正在统计中....请等待.......

也就是说需要让用户知道是在统计中，当统计功能完全打开以后，自动的关闭刚才的提示信息。

lixin_justep

ProgressBar1.visible := True
ProgressBar1.Position := 1;
for i:=1 to dataset.RecordCount do
begin
   ProgressBar1.Position := i;
end;
ProgressBar1.Visible := False;

op+

刚才使用了下这个控件，我不知道怎么去结合我的那个统计的功能来使用，我统计的功能我并不知道它需要多久才能完全打开，能不能说的详细点啊。。谢谢了，来个例子最好了。

lixin_justep

那你把你写的那段统计代码发过来看看吧

op+

回复楼上的，我的统计功能的代码很多的，都是写在ONSHOW事件那里，所以统计起来有点久，代码就2000多行了，都是已些SQL统计本系统中的一些表的数据进行+、— 所得到的数据。如下图，报表功能 就是。

一点击就有假死的状态，所以用户都不知道是不是卡死了。

如果代码少点话功能一点击就出来了，但是因为代码是2000多行，所以需要点时间，这段时间中我希望弹出个提示进行说明。

图中的功能是一个很普通的业务功能来的。

lixin_justep

创建一个进度条窗体，在onshow的时候显示，进度条的position你可以每执行一条Sql语句就改变一次
procedure TMainForm.BizFormShow(Sender: TObject);
var
  lForm : TCT1;  //进度条窗体
  i : Integer;
begin
  lForm := TCT1.Create(context);
  try
    lForm.Show;
    Business.Forms.Forms.Application.ProcessMessages;

    lForm.ProgressBar1.Visible := True;
    lForm.ProgressBar1.Position := 1;
    lForm.ProgressBar1.Max := 10000 ;

    for i := 0 to 10000 do
    begin

      lForm.ProgressBar1.Position := i;

    end;
  finally
    lForm.ProgressBar1.Visible := False;
    lForm.Close;
  //  lForm.Free;
  end;
end;