From 8e3c6c7bdabaafa0a66526426f0d3addb09894bd Mon Sep 17 00:00:00 2001
From: paul <paul@lazarus-ide.org>
Date: Sun, 2 May 2010 08:02:21 +0000
Subject: [PATCH] lcl: don't directly destroy the page on deletion, use release
 component to postpone control death (issue #0014365)

git-svn-id: trunk@25126 -
---
 lcl/include/customnotebook.inc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lcl/include/customnotebook.inc b/lcl/include/customnotebook.inc
index ac859b1ca5..2492b0bc53 100644
--- a/lcl/include/customnotebook.inc
+++ b/lcl/include/customnotebook.inc
@@ -114,7 +114,7 @@ begin
     // delete handle
     APage.Parent := nil;
     // free the page
-    APage.Free;
+    Application.ReleaseComponent(APage);
   end;
   {$IFDEF NOTEBOOK_DEBUG}
   DebugLn(['TNBPages.Delete END ',fNoteBook.Name,' Index=',Index,' fPageList.Count=',fPageList.Count,' fNoteBook.PageIndex=',fNoteBook.PageIndex]);