* Disable controls while applying updates (bug 9380)

git-svn-id: trunk@10934 -

packages/fcl-db/src/base/bufdataset.pas

@@ -1553,6 +1553,7 @@ begin
   r := 0;
   FailedCount := 0;
   Response := rrApply;
+  DisableControls;
   try
     while (r < Length(FUpdateBuffer)) and (Response <> rrAbort) do
       begin
@@ -1618,6 +1619,7 @@ begin
 
     FCurrentRecBuf := StoreRecBuf;
     Resync([]);
+    EnableControls;
   end;
 {$ENDIF}
 end;