Querywindow: when creating new results tab, set focus to it

comparison.pas

@@ -519,7 +519,6 @@ begin
             Line:= 'alter table ' + ATableName + LineEnding +
             'add constraint ' + AIndexName + LineEnding +
             'primary key (' + FieldsList.CommaText + ');';
-
           end
           else
           begin

querywindow.pas

@@ -1006,6 +1006,7 @@ begin
   BeginUpdateBounds;
   Result:= ATab;
   ATab.Parent:= pgOutputPageCtl;
+  pgOutputPageCtl.ActivePage:= ATab; //set focus to new tab
   ATab.Caption:= 'Result # ' + GetNewTabNum + ' ' + AdditionalTitle;
   if QueryType = qtSelectable then // Select, need record set result
   begin