feat: select just created table copy

ansgarbecker · ansgarbecker · commit 18e943155df8 · 2026-03-02T20:28:24.000+01:00
Refs #131
diff --git a/source/copytable.pas b/source/copytable.pas
@@ -361,6 +361,7 @@ procedure TCopyTableForm.btnOKClick(Sender: TObject);
   Key: TTableKey;
   ForeignKey: TForeignKey;
   CreateLines: TStringList;
+  NewObj: TDBObject;
 begin
   // Compose and run CREATE query
 
@@ -494,7 +495,13 @@ procedure TCopyTableForm.btnOKClick(Sender: TObject);
     end;
     // actRefresh takes care of whether the table editor is open
     // See also issue #1597
-    MainForm.actRefresh.Execute
+    MainForm.actRefresh.Execute;
+    // Select it in tree
+    NewObj := TDBObject.Create(FDBObj.Connection);
+    NewObj.NodeType := lntTable;
+    NewObj.Database := comboDatabase.Text;
+    NewObj.Name := editNewTablename.Text;
+    MainForm.ActiveDbObj := NewObj;
   except
     on E:EDbError do begin
       Screen.Cursor := crDefault;
