代码很简单:
DBGrideh.StartLoadingStatus(' Loading ... ');
Sleep(500);
DBGrideh.FinishLoadingStatus;
做下变动:
DBGrideh.StartLoadingStatus(' Loading ... ',1000); //1000表示显示的速度
Sleep(500);
DBGrideh.FinishLoadingStatus(1000); //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;