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

MG: added exception message on designed component deletion

Browse Source 
git-svn-id: trunk@3540 -
This commit is contained in:
lazarus 2002-10-23 12:40:49 +00:00
parent 5a82543198
commit 9464792e01
1 changed files with 22 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
ide/customformeditor.pp
View File

@ -562,11 +562,32 @@ Begin
end;
Function TComponentInterface.Delete: Boolean;
var
OldName, OldClassName: string;
Begin
{$IFDEF VerboseFormEditor}
writeln('TComponentInterface.Delete A ',Component.Name,':',Component.ClassName);
{$ENDIF}
Component.Free;
{$IFNDEF NoCompCatch}
try
{$ENDIF}
OldName:=Component.Name;
OldClassName:=Component.ClassName;
Component.Free;
{$IFNDEF NoCompCatch}
except
on E: Exception do begin
writeln('TComponentInterface.Delete ERROR:',
' "'+OldName+':'+OldClassName+'" ',E.Message);
MessageDlg('Error',
'An exception occured during deletion of'#13
+'"'+OldName+':'+OldClassName+'"'#13
+E.Message,
mtError,[mbOk],0);
end;
end;
{$ENDIF}
FComponent:=nil;
{$IFDEF VerboseFormEditor}
writeln('TComponentInterface.Delete B ');
{$ENDIF}