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

Cocoa: Fix the issue that KillFocus message is sent to the wrong control when the control is a FieldEditor #40635

Browse Source
This commit is contained in:
rich2014 2023-12-10 13:36:34 +08:00
parent f813f574d4
commit 4746c886bd
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/interfaces/cocoa/cocoawindows.pas
View File

@ -1027,6 +1027,12 @@ begin
newResponder := getProperFocusedResponder( self, aResponder );
if lastResponder = newResponder then exit;
// get the callback of lastResponder first, because the callback of
// lastResponder may be changed dynamically.
// for example, when lastResponder is a FieldEditor.
// see also: TCocoaFieldEditor.lclGetCallback()
cb := getResponderCallback( lastResponder );
// do toggle Focused Control
// Result=false when the focused control has not been changed
// TCocoaWindow.makeFirstResponder() may be triggered reentrant here
@ -1038,7 +1044,6 @@ begin
exit;
// 1st: send KillFocus Message first
cb:= getResponderCallback( lastResponder );
if Assigned(cb) then
cb.ResignFirstResponder;