利用 StartLoadingStatus 和 FinishLoadingStatus 读取数据特别是大数据时增加渐隐渐显等待特效 - Ehlib学习(三)

  DBGrideh.StartLoadingStatus(‘ Loading ... ‘);
  Sleep(500);  
  DBGrideh.FinishLoadingStatus;
  

  DBGrideh.StartLoadingStatus(‘ Loading ... ‘,1000);  //1000表示显示的速度
  Sleep(500);  
  DBGrideh.FinishLoadingStatus(1000);    //1000表示显示的速度,此处的单位不是毫秒  

  Steps := RenderDuration;  //上一段代码中的数值1000
  i := 1;　　　　//起始数值1;
  Step := 1;　　　　//步长1;
  while i < Steps do
  begin
    DrawAlphaBlend(i, Steps);
    RenDur := GetTickCount - t;
    if RenDur > 0
      then StepSize := Round(RenDur / Step)
      else StepSize := 1;
    if StepSize = 0 then
      StepSize := 1;
    i := i + StepSize;
    Inc(Step);
  end;