Fix #93

Author: pyscripter

PythonForDelphi/Components/Sources/Core/WrapDelphiClasses.pas

@@ -791,18 +791,22 @@ function TPyDelphiComponent.BindMethodsToEvents(args: PPyObject): PPyObject;
                           if Assigned(_comp) and Assigned(objComp) and IsPublishedProp(_comp, _eventName) then
                           begin
                             objMethod := PyObject_GenericGetAttr(GetSelf, key);
-                            if PyErr_Occurred <> nil then
-                              Exit;
-                            PyObject_SetAttrString(objComp, PAnsiChar(AnsiString(_eventName)), objMethod);
-                            if PyErr_Occurred <> nil then
-                              Exit
-                            else
-                            begin
-                              _pair := PyTuple_New(3);
-                              PyTuple_SetItem(_pair, 0, PyString_FromDelphiString(_compName));
-                              PyTuple_SetItem(_pair, 1, PyString_FromDelphiString(_eventName));
-                              PyTuple_SetItem(_pair, 2, objMethod);
-                              PyList_Append(_bindings, _pair);
+                            try
+                              if PyErr_Occurred <> nil then
+                                Exit;
+                              PyObject_SetAttrString(objComp, PAnsiChar(AnsiString(_eventName)), objMethod);
+                              if PyErr_Occurred <> nil then
+                                Exit
+                              else
+                              begin
+                                _pair := PyTuple_New(3);
+                                PyTuple_SetItem(_pair, 0, PyString_FromDelphiString(_compName));
+                                PyTuple_SetItem(_pair, 1, PyString_FromDelphiString(_eventName));
+                                PyTuple_SetItem(_pair, 2, objMethod);
+                                PyList_Append(_bindings, _pair);
+                              end;
+                            finally
+                              Py_XDecRef(objMethod);
                             end;
                           end;
                         end;

PythonForDelphi/Demos/Demo31/Unit1.dfm

@@ -104,7 +104,7 @@ object Form1: TForm1
 
         '    self.Caption = self.Caption + '#39' - changed by Python subclass' +
         #39
-      '    #self.BindMethodsToEvents()'
+      '    self.BindMethodsToEvents()'
       ''
       '  def handle_btnAdd_OnClick(self, Sender):'
       '    self.ListBox1.Items.Add(self.Edit1.Text)'