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

Cocoa: fix #40581, avoid sending KillFocus messages repeatedly when closing window

Browse Source
This commit is contained in:
rich2014 2024-01-19 22:11:13 +08:00
parent 88d32c5c97
commit de565120e0
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/interfaces/cocoa/cocoawsforms.pas
View File

@ -402,9 +402,11 @@ var
begin
CocoaWidgetSet.KeyWindow:= nil;
focusedCb := window.firstResponder.lclGetCallback;
if Assigned(focusedCb) then
focusedCb.ResignFirstResponder;
focusedCb:= window.firstResponder.lclGetCallback;
if Assigned(focusedCb) then begin
if not (csDestroying in TComponent(focusedCb.GetTarget).ComponentState) then
focusedCb.ResignFirstResponder;
end;
LCLSendActivateMsg(Target, WA_INACTIVE, false);
end;