diff --git a/ide/idewindowhelp.pas b/ide/idewindowhelp.pas
index bbc564da10..d249d7871e 100644
--- a/ide/idewindowhelp.pas
+++ b/ide/idewindowhelp.pas
@@ -477,7 +477,7 @@ var
   begin
     Result:=nil;
     NextParent:=TheControl.Parent;
-    if NextParent=nil then begin
+    if (NextParent=nil) or (NextParent.ClassName='TAnchorDockHostSite') then begin
       CurName:=TheControl.ClassName;
       ParentHelpNode:=Root;
     end else begin