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

Cocoa: fix the issue be introduced by b184a37

Browse Source 
Window/Control Active Message Lost
This commit is contained in:
rich2014 2023-07-18 18:52:35 +08:00
parent c3fcb2f746
commit 6ccadfca8b
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -763,8 +763,8 @@ end;
procedure TCocoaWindow.DoWindowDidBecomeKey();
begin
if Assigned(CocoaWidgetSet.CurModalForm) then
CocoaWidgetSet.CurModalForm.orderFront(nil);
if CocoaWidgetSet.isModalSession then
self.orderFront(nil);
CursorHelper.SetCursorOnActive();
end;
@ -1042,6 +1042,11 @@ begin
newResponder := NSResponder(dl);
end
else
if newResponder.isKindOfClass(NSWindow) or newResponder.isKindOfClass(TCocoaWindowContentDocument) then
begin
newResponder := nil;
end
else
begin
newResponder := newResponder.lclContentView;
end;