Application.ProcessMessages 释放控制权使用方法

atiger

在Busines 中，Froms 单元被归类到Business.Forms 名空间下，Froms 单元成为Business.Forms名空间中的一个类，Application成为Froms类的成员，Business.Forms.Forms.Application.ProcessMessages。

参考代码如下：

procedure TFileOperateProgressDialog.SetPosition(Value: Integer);
var
  lCaption: string;
begin
  case OperateKind of
    TFileOperateProgressKind.foCopy:
      lCaption := SysUtils.Format(s_Message_Execute, [s_Copy]);
    TFileOperateProgressKind.foMove:
      lCaption := SysUtils.Format(s_Message_Execute, [s_Move]);
    TFileOperateProgressKind.foDelete, TFileOperateProgressKind.foRealDelete:
      lCaption := SysUtils.Format(s_Message_Execute, [s_Delete]);
    TFileOperateProgressKind.foLoading:
      lCaption := SysUtils.Format(s_Message_Execute, [s_Loading]);
  else
    lCaption := '';
  end;
  Caption := lCaption;

  ProgressBar.Position := Value;
  RefreshTime;
  Business.Forms.Forms.Application.ProcessMessages;
end;