--- C:/Sandbox/P4D/PythonForDelphi/PythonIDE/JvDockVIDStyle.pas	Thu Dec 27 18:50:43 2007
+++ C:/Delphi/Components/jvcl/run/JvDockVIDStyle.pas	Sun Jun 24 14:09:46 2007
@@ -1049,6 +1048,0 @@
-              //KV
-              if not JvGlobalDockIsLoading and
-                (TJvDockTabHostForm(Host).GetActiveDockForm <> nil) and
-                GetParentForm(Host).Visible and
-                TJvDockTabHostForm(Host).GetActiveDockForm.CanFocus then
-                   TJvDockTabHostForm(Host).GetActiveDockForm.SetFocus;
@@ -1146,6 +1139,0 @@
-    //KV
-    if (ControlCount > 0) and Assigned(Controls[0]) and (Controls[0] is TJvDockTabHostForm) then begin
-      with TJvDockTabHostForm(Controls[0]) do
-        if (GetActiveDockForm <> nil) and GetActiveDockForm.CanFocus then
-          GetActiveDockForm.SetFocus;
-    end;
@@ -2611,6 +2598,0 @@
-  //KV
-  with ActivePage do
-    if not JvGlobalDockIsLoading and (ControlCount > 0) and Assigned(Controls[0]) then begin
-      if Visible and (Controls[0] <> nil) and (Controls[0] as TWinControl).CanFocus then
-          (Controls[0] as TWinControl).SetFocus;
-    end;
@@ -3290,0 +3273,6 @@
+      if Assigned(Page.ActivePage) and Page.ActivePage.CanFocus then
+      begin
+        AParentForm := GetParentForm(Page);
+        if Assigned(AParentForm) then
+          AParentForm.ActiveControl := Page.ActivePage;
+      end;
@@ -3297,8 +3284,0 @@
-    end;
-    if Assigned(Page.ActivePage) and Page.ActivePage.CanFocus then
-    begin
-      AParentForm := GetParentForm(Page);
-      if Assigned(AParentForm) then begin
-        Page.SelectFirst;
-        AParentForm.SetFocus;
-      end;