Dump stack trace in case of exception when placing a component on a form.

git-svn-id: trunk@7822 -
This commit is contained in:
vincents 2005-09-25 19:35:45 +00:00
parent 86a7e13da6
commit cd92287656

View File

@ -1356,6 +1356,8 @@ Begin
end;
except
on e: Exception do begin
DebugLn(e.Message);
DumpExceptionBackTrace;
MessageDlg(lisErrorMovingComponent,
Format(lisErrorMovingComponent2, [Temp.Component.Name,
Temp.Component.ClassName]),