From 87e3c081d0ae9ce41bb75b3d598c05f8bf8b2fa3 Mon Sep 17 00:00:00 2001
From: Ansgar Becker <anse@heidisql.com>
Date: Mon, 2 Mar 2026 20:25:35 +0100
Subject: [PATCH] feat: select just created table copy

Refs #131
---
 source/copytable.pas | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/source/copytable.pas b/source/copytable.pas
index 9f70e3e0..fa377e23 100644
--- a/source/copytable.pas
+++ b/source/copytable.pas
@@ -358,6 +358,7 @@ var
   Key: TTableKey;
   ForeignKey: TForeignKey;
   ClausePattern: String;
+  NewObj: TDBObject;
 begin
   // Compose and run CREATE query
 
@@ -487,7 +488,13 @@ begin
     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;