From c7da8d084eaf6eb01b61bcc6d566e71ea3e580fa Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sat, 17 Jul 2010 08:24:59 +0000
Subject: [PATCH] LCL: TDragManagerDefault: check if FPermorer is no more, bug
 #16959

git-svn-id: trunk@26708 -
---
 lcl/include/dragmanager.inc | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lcl/include/dragmanager.inc b/lcl/include/dragmanager.inc
index 9f9e46d402..e94e580f5d 100644
--- a/lcl/include/dragmanager.inc
+++ b/lcl/include/dragmanager.inc
@@ -674,7 +674,8 @@ begin
         exit;
       FPerformer.DragStarted(APosition);
     end;
-    FPerformer.DragMove(APosition);
+    if FPerformer<>nil then
+      FPerformer.DragMove(APosition);
   end;
 end;