dump exception backtrace in case of error, when deleting a component

git-svn-id: trunk@8015 -
2025-04-16 23:49:28 +02:00 · 2005-10-31 11:16:59 +00:00 · 2005-10-31 11:16:59 +00:00 · fc9c3bb22a
commit fc9c3bb22a
parent 3e08307ac5
1 changed files with 1 additions and 0 deletions
--- a/ide/customformeditor.pp
+++ b/ide/customformeditor.pp
@ -720,6 +720,7 @@ Begin
    on E: Exception do begin
      DebugLn('TComponentInterface.Delete ERROR:',
        ' "'+OldName+':'+OldClassName+'" ',E.Message);
+      DumpExceptionBackTrace;
      MessageDlg('Error',
        'An exception occured during deletion of'#13
        +'"'+OldName+':'+OldClassName+'"'#13