In macOS zal het groene knopje (elke venster heeft die, links bovenin) een window schermvullend (fullscreen) maken en niet maximaliseren zoals we dat op andere besturingssystemen zien.

Daarom heb ik twee functies gemaakt die dit gedraag uitzetten (normaal maximaliseren) of weer aanzet (fullscreen).

procedure DisableFullscreenButton(theForm: TForm);
var
  theWindow: NSWindow;
begin
  theWindow := NSView(theForm.Handle).window;       // Form1 is the name of the main form - adjust as necessary
  theWindow.setCollectionBehavior(theWindow.collectionBehavior or NSWindowCollectionBehaviorFullScreenAuxiliary);
end;

procedure EnableFullscreenButton(theForm: TForm);
var
  theWindow: NSWindow;
begin
  theWindow := NSView(theForm.Handle).window;       // Form1 is the name of the main form - adjust as necessary
  theWindow.setCollectionBehavior(theWindow.collectionBehavior and NSWindowCollectionBehaviorFullScreenPrimary);
end;