如何使unigui支持多文件上传-MultiFileUpload

unigui能上传文件，单只支持单文件上传，在unigui中如何实现多文件上传呢？MultiFileUpload提供了解决方案!此例子使用MultiFileUpload解决了unigui多文件上传的问题
看看运行效果

其中部份代码

procedure TDialogFileUpload.UniFormClose(Sender: TObject;
  var Action: TCloseAction);
var
  I: Integer;
begin
  if FIsUploading then
  begin
    //正在上传，不允许退出
    Action := caNone;
    ModalResult := mrNone;
    Exit;
  end;
  if ModalResult=mrOK then
  begin
    if FListFiles.Count=0 then
    begin
      MessageDlg('请选择文件并上传！',mtInformation,[mbOK],nil);
      Action := caNone;
      ModalResult := mrNone;
 
      Exit;
    end;
 
    for I := 0 to FListFiles.Count - 1 do
    begin
      if Integer(FListFiles.Objects[I])=0 then
      begin
        MessageDlg('请上传选择的文件！',mtInformation,[mbOK],nil);
        Action := caNone;
        ModalResult := mrNone;
 
        Exit;
      end;
    end;
    if Assigned(FOnGetUploadFiles) then
    begin
      FOnGetUploadFiles(Self,FListFiles,FListFileSizes);
    end;
  end;
  //关闭时清除所有文件
  FListFiles.Clear;
  FListFileSizes.Clear;
  UniSession.AddJS('panelUpload.onRemove();');
end;

源码下载地址：
链接: https://pan.baidu.com/s/1JYlHKLu2WZHXIc3MdNez7Q 提取码: srz4 复制这段内容后打开百度网盘手机App，操作更方便哦