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

Cocoa: fix the issue when call TCocoaWindow.makeFirstResponder() with nil

Browse Source
This commit is contained in:
rich2014 2023-08-06 02:00:04 +08:00
parent 24dae4f817
commit 52aafa7090
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1021,7 +1021,11 @@ end;
// return proper focused responder by kind of class of NSResponder
function getProperFocusedResponder( const aResponder : NSResponder ): NSResponder;
begin
Result := aResponder;
if aResponder<>nil then
Result := aResponder
else
Result:= NSApp.keyWindow;
if Result.isKindOfClass(NSWindow) then
Result:= TCocoaWindowContent(NSWindow(Result).contentView).documentView;
end;