paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-19 06:39:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: improved error handling on destroying buggy designer component

Browse Source 
git-svn-id: trunk@10463 -
This commit is contained in:
mattias 2007-01-17 11:34:15 +00:00
parent fb43a48277
commit b081e13590
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
ide/customformeditor.pp
View File

@ -1326,6 +1326,7 @@ Var
NewComponentName: String;
DesignForm: TCustomForm;
NewUnitName: String;
s: String;
Begin
Result:=nil;
Temp:=nil;
@ -1505,11 +1506,12 @@ Begin
NewComponent:=nil;
except
on E: Exception do begin
MessageDlg('Error destroying component',
'Error destroying component of type '+TypeClass.ClassName
s:='Error destroying component of type '+TypeClass.ClassName
+' of unit '+AUnitName+':'#13
+E.Message,
mtError,[mbCancel],0);
+E.Message;
DebugLn(['TCustomFormEditor.CreateComponent ',s]);
DumpExceptionBackTrace;
MessageDlg('Error destroying component',s,mtError,[mbCancel],0);
end;
end;
end;