paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-08 07:37:27 +01:00
Code Issues Packages Projects Releases Wiki Activity

lcl: pass Sender to TExceptionEvent instead of Application

Browse Source 
git-svn-id: trunk@19098 -
This commit is contained in:
paul 2009-03-25 10:21:01 +00:00
parent ffe4e89cf0
commit dee3b9ff40
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/include/application.inc
View File

@ -1076,7 +1076,7 @@ begin
if Assigned(OnException) then
OnException(Sender, Exception(ExceptObject));
while FApplicationHandlers[ahtException].NextDownIndex(i) do
TExceptionEvent(FApplicationHandlers[ahtException][i])(Self,Exception(ExceptObject));
TExceptionEvent(FApplicationHandlers[ahtException][i])(Sender, Exception(ExceptObject));
end
else
ShowException(Exception(ExceptObject));