Welcome to the Tweaking4All community forums!
When participating, please keep the Forum Rules in mind!
Topics for particular software or systems: Start your topic link with the name of the application or system.
For example “MacOS X – Your question“, or “MS Word – Your Tip or Trick“.
Please note that switching to another language when reading a post will not bring you to the same post, in Dutch, as there is no translation for that post!
[Solved] Lazarus Pascal - macOS - Form does not close on quit application
Delphi, Lazarus, Free Pascal
(@hans)
Famed Member Admin
Joined: 11 years ago
Posts: 2741
Topic starter
October 26, 2022 8:41 AM
I've encountered this in several of my Cocoa apps (Intel and Arm64): Close the application doesn't close the main form until it has focus.
This happens for example when the said form or application does not have focus, and you're trying to terminate the application by right clicking the Dock icon and selecting "Quit". The form will not close until it gets focus again.
I have had a friend report the same thing when programmatically closing a form that did not have focus.
The FormClose event does get fired, but the form still does not close.
KodeZwerg in the Lazarus Forum (thanks 👍😎) helped finding the fix, by simply adding "self.show;" to the FormClose event.
procedure TForm1.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
Self.Show;
end;