From 17ddc6d07d00762a040b560eabddaf1df214fe4b Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sat, 12 Dec 2009 12:56:52 +0000
Subject: [PATCH] IDE: fixed GetParentFormRelativeTopLeft for nested non visual
 components

git-svn-id: trunk@23100 -
---
 designer/designerprocs.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/designer/designerprocs.pas b/designer/designerprocs.pas
index 3c1e1ba745..660ee65ae2 100644
--- a/designer/designerprocs.pas
+++ b/designer/designerprocs.pas
@@ -146,7 +146,7 @@ begin
     begin
       Parent:=TWinControl(Component.Owner);
       ParentForm := GetParentForm(Parent);
-      if ParentForm<>Parent then
+      if (ParentForm<>nil) and (ParentForm<>Parent) then
       begin
         p:=Parent.ClientOrigin;
         FormOrigin := ParentForm.ClientOrigin;