paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-29 10:52:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

cocoa: preventing call of keyup for textfield, in case the callback was cleared

Browse Source 
git-svn-id: trunk@57018 -
This commit is contained in:
dmitry 2018-01-09 03:07:46 +00:00
parent a77eb48d0c
commit cb31fbad0e
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/interfaces/cocoa/cocoaprivate.pp
View File

@ -2343,7 +2343,9 @@ begin
// NSTextField doesn't provide keyDown, so emulate it here
callback.KeyEvent(event, True);
// keyUp now
callback.KeyEvent(event);
// by this time the control might have been released and callback cleared
if Assigned(callback) then
callback.KeyEvent(event);
end;
inherited keyUp(event);
end;