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

Win32: fix WM_QUIT message causes an infinite loop. Patch by Michalgw. Issue #41608.

Browse Source
This commit is contained in:
Bart 2025-07-30 23:01:22 +02:00
parent e552bf0b9c
commit dfb54acdae
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/interfaces/win32/win32object.inc
View File

@ -405,8 +405,9 @@ begin
begin
if AMessage.message = WM_QUIT then
begin
PostQuitMessage(AMessage.wParam);
break;
ExitCode := AMessage.wParam;
Application.Terminate;
Exit;
end;
// Handle MDI form accelerators
if Assigned(Application) and