删除附件报错

Forms/UpFileFrame.pas

@@ -36,16 +36,16 @@ type
     procedure btnDeleteClick(Sender: TObject);
     procedure btnOpenClick(Sender: TObject);
   private
-    FOwner: TObject;
+    //FOwner: TObject;
     FData: TUpFile;
     FProjectData: TObject;
     procedure SetData(const Value: TUpFile);
-    procedure SetOwner(const Value: TObject);
+    //procedure SetOwner(const Value: TObject);
     procedure SetProjectData(const Value: TObject);
     { Private declarations }
   public
     { Public declarations }
-    property Owner: TObject read FOwner write SetOwner;
+    //property Owner: TObject read FOwner write SetOwner;
     property Data: TUpFile read FData write SetData;
     property ProjectData: TObject read FProjectData write SetProjectData;
 
@@ -90,10 +90,11 @@ begin
   Data.OnStatusChange := DoOnStatusChange;
 end;
 
+{
 procedure TUpFileView.SetOwner(const Value: TObject);
 begin
   FOwner := Value;
-end;
+end;}
 
 procedure TUpFileView.ShowNormal;
 begin
@@ -290,7 +291,7 @@ const
   G_Left = 268;
   G_Top = 12;
 begin
-  inherited;
+  inherited Create(AOwner);
   lblInfo.Left := G_Left;
 
   pnlPlay.ParentColor := True;

Forms/UpFileManageFrame.dfm

@@ -711,7 +711,7 @@ object UpFileManageView: TUpFileManageView
   end
   object tDelView: TTimer
     Enabled = False
-    Interval = 100
+    Interval = 200
     OnTimer = tDelViewTimer
     Left = 200
     Top = 16

Forms/UpFileManageFrame.pas

@@ -65,7 +65,7 @@ type
     FDatas: TUpFiles;
     FWaitForDelete: TUpFileView;
     FDeleteAttachmentOnLine: Boolean;
-    FOwner: TObject;
+    //FOwner: TObject;
     FProjectData: TObject;
     FRec: TsdDataRecord;
     procedure SetSelected(const Value: TUpFileView);
@@ -81,7 +81,7 @@ type
     procedure DetailIntoEditStatus;
     procedure AddUpFileView(AUpFile: TUpFile);
     procedure SetWaitForDelete(const Value: TUpFileView);
-    procedure SetOwner(const Value: TObject);
+    //procedure SetOwner(const Value: TObject);
     procedure SetProjectData(const Value: TObject);
     procedure SetRec(const Value: TsdDataRecord);
     procedure SelectUpFile;
@@ -91,9 +91,9 @@ type
     procedure DeleteViewAndData(AView: TUpFileView; ANeedDeleteOnLine: Boolean);
     procedure DoOnBillChange(ARec: TsdDataRecord);
     procedure RefreshViews;
-    
+
     property ProjectData: TObject read FProjectData write SetProjectData;
-    property Owner: TObject read FOwner write SetOwner;
+    //property Owner: TObject read FOwner write SetOwner;
     property Selected: TUpFileView read FSelected write SetSelected;
     property DetailIsEdit: Boolean read FDetailIsEdit write SetDetailIsEdit;   // 明细部分处理编辑状态
     property Datas: TUpFiles read FDatas write SetDatas;
@@ -169,7 +169,8 @@ end;
 procedure TUpFileManageView.RefreshViews;
 var i: Integer;
 begin
-  LockWindowUpdate(Self.Handle);
+  //LockWindowUpdate(Self.Handle);
+  //BeginUpdateWindow(Handle);
   try
     btnSelectUpFile.Visible := (not TProjectData(FProjectData).IsHistoryPhase) and (not TProjectData(FProjectData).IsGuest);
     ClearViews;
@@ -187,7 +188,8 @@ begin
       end;
   finally
     pnlHead.Repaint;
-    LockWindowUpdate(0);
+    //LockWindowUpdate(0);
+   // EndUpdateWindow(Handle);
   end;
 end;
 
@@ -317,7 +319,7 @@ begin
 // 先删再增会重复。
 //  vVew.Name := Format('UpFileView%d', [AUpFile.No]);    // 此时ID尚末获取，不能用ID
   vVew.Name := Format('UpFileView_%s', [PHPWeb.TempName]);
-  vVew.Owner := Self;
+  //vVew.Owner := Self;
   vVew.ProjectData := FProjectData;
   //vVew.parent := sbFile;
   sbFile.InsertControl(vVew);
@@ -353,12 +355,12 @@ begin
   FWaitForDelete := Value;
 end;
 
-procedure TUpFileManageView.SetOwner(const Value: TObject);
+{procedure TUpFileManageView.SetOwner(const Value: TObject);
 begin
   FOwner := Value;
   TProjectFrame(FOwner).BillsMeasureFrame.BillsMeasureData.OnRecChange := DoOnBillChange;
   TProjectFrame(FOwner).BillsCompileFrame.BillsCompileData.OnRecChange := DoOnBillChange;
-end;
+end;}
 
 procedure TUpFileManageView.SetProjectData(const Value: TObject);
 begin
@@ -416,6 +418,9 @@ begin
   lblBillName.Update;
 
   pnlDetail.Visible := G_IsCloud;
+
+  TProjectFrame(AOwner).BillsMeasureFrame.BillsMeasureData.OnRecChange := DoOnBillChange;
+  TProjectFrame(AOwner).BillsCompileFrame.BillsCompileData.OnRecChange := DoOnBillChange;
 end;
 
 procedure TUpFileManageView.DoOnBillChange(ARec: TsdDataRecord);

Frames/ProjectFme.pas

@@ -1407,8 +1407,8 @@ end;
 
 procedure TProjectFrame.CreateUpFile;
 begin
-  FUpFileManageView := TUpFileManageView.Create(nil);
-  FUpFileManageView.Owner := Self;
+  FUpFileManageView := TUpFileManageView.Create(Self);
+  //FUpFileManageView.Owner := Self;
   
   FUpFileManageView.ProjectData := FProjectData;
   FUpFileManageView.Datas := FProjectData.AttachmentData;