mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-06-25 16:48:16 +02:00
Dump stack trace in case of exception when placing a component on a form.
git-svn-id: trunk@7822 -
This commit is contained in:
parent
86a7e13da6
commit
cd92287656
@ -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]),
|
||||
|
Loading…
Reference in New Issue
Block a user