fix: MS SQL throws "Cannot drop database xyz, because it is currently in use" when user is about to drop the current database

Sets the next or previous sibling database, whichever is available

Refs #1436

Author: ansgarbecker

source/main.pas

@@ -3760,7 +3760,7 @@ procedure TMainForm.actInsertFilesExecute(Sender: TObject);
 procedure TMainForm.actDropObjectsExecute(Sender: TObject);
 var
   msg, db: String;
-  Node: PVirtualNode;
+  Node, SiblingDB: PVirtualNode;
   Obj: PDBObject;
   DBObject: TDBObject;
   ObjectList: TDBObjectList;
@@ -3781,7 +3781,15 @@ procedure TMainForm.actDropObjectsExecute(Sender: TObject);
         try
           db := DBObject.Database;
           Node := FindDBNode(DBtree, Conn, db);
-          SetActiveDatabase('', Conn);
+          // Set focus on previous or next database, to prevent "Cannot drop database xyz, because it is currently in use"
+          // MS SQL on top cannot "un-use" the current database
+          SiblingDB := DBtree.GetNextSibling(Node);
+          if not Assigned(SiblingDB) then
+            SiblingDB := DBtree.GetPreviousSibling(Node);
+          if Assigned(SiblingDB) then
+            SetActiveDatabase(DBtree.Text[SiblingDB, 0], Conn)
+          else
+            SetActiveDatabase('', Conn); // Fallback if there is no sibling. Works on MySQL only.
           Conn.Query(qDatabaseDrop, [Conn.QuoteIdent(db)]);
           DBtree.DeleteNode(Node);
           Conn.ClearDbObjects(db);