Using the Lazarus IDE and Free Pascal the following code works in previous macOS versions, but not in Monterey:
procedure TForm1.FormActivate(Sender: TObject);
begin
NSApp := NSApplication.sharedApplication;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
NSApp.dockTile.setBadgeLabel(NSStr('1'));
end;
Any ideas why it fails in Monterey? There are no related errors in the system console log.
Trevoz
Users receive reputation points by contributing quality content to the forums.
Posts include post and replies published on the forums.
Post authors can mark replies as Accepted to indicate successful solutions.
Apple Developer Forums admins can mark replies as Apple Recommended to indicate an approved solution
Last seen
User for