附件窗口，ScrollBox管理相关

Forms/UpFileManageFrame.pas

@@ -149,12 +149,20 @@ begin
 end;
 
 procedure TUpFileManageView.ClearViews;
-var i: Integer;
+var
+  i: Integer;
+  obj: TControl;
 begin
   for i := sbFile.ControlCount - 1 downto 0 do
   begin
-    if Assigned(sbFile.Controls[i]) then
-      TUpFileView(sbFile.Controls[i]).Free;
+    //if Assigned(sbFile.Controls[i]) then
+    obj := sbFile.Controls[i];
+    if Assigned(obj) then
+    begin
+      sbFile.RemoveControl(obj);
+      FreeAndNil(obj);
+    end;
+    //TUpFileView(sbFile.Controls[i]).Free;
   end;
 end;
 
@@ -311,7 +319,8 @@ begin
   vVew.Name := Format('UpFileView_%s', [PHPWeb.TempName]);
   vVew.Owner := Self;
   vVew.ProjectData := FProjectData;
-  vVew.parent := sbFile;
+  //vVew.parent := sbFile;
+  sbFile.InsertControl(vVew);
   vVew.Align := alTop;
   vVew.Data := AUpFile;
 end;
@@ -334,6 +343,7 @@ begin
       Application.MessageBox('线上附件移除失败，请重试！', '警告', MB_OK + MB_ICONWARNING);
       Exit;
     end;
+  sbFile.RemoveControl(WaitForDelete);
   WaitForDelete.Free;
   Datas.Delete(vUpFile);
 end;