[JVCL-Checkins] SF.net SVN: jvcl: [10937] trunk/jvcl/run/JvThread.pas

[<jfu...@us...>]

Revision: 10937
          http://svn.sourceforge.net/jvcl/?rev=10937&view=rev
Author:   jfudickar
Date:     2006-09-13 14:24:08 -0700 (Wed, 13 Sep 2006)

Log Message:
-----------
AV prevented

Modified Paths:
--------------
    trunk/jvcl/run/JvThread.pas

Modified: trunk/jvcl/run/JvThread.pas
===================================================================
--- trunk/jvcl/run/JvThread.pas	2006-09-13 17:32:43 UTC (rev 10936)
+++ trunk/jvcl/run/JvThread.pas	2006-09-13 21:24:08 UTC (rev 10937)
@@ -406,7 +406,8 @@
 procedure TJvCustomThreadDialogForm.SetConnectedDataComponent(Value: TComponent);
 begin
   FConnectedDataComponent := Value;
-  FreeNotification(Value);
+  if Assigned(Value) then
+    FreeNotification(Value);
 end;
 
 procedure TJvCustomThreadDialogForm.SetConnectedDataObject(Value: TObject);


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.