Difference between revisions of "macOS Play Alert Sound"
From Free Pascal wiki
Jump to navigationJump to search (Playing macOS alert sounds - new content) |
m (Removed unneeded code) |
||
Line 1: | Line 1: | ||
{{LanguageBar}} | {{LanguageBar}} | ||
+ | |||
{{Platform only|macOS}} | {{Platform only|macOS}} | ||
Line 27: | Line 28: | ||
MainMenu1: TMainMenu; | MainMenu1: TMainMenu; | ||
MenuItem1: TMenuItem; | MenuItem1: TMenuItem; | ||
− | |||
− | |||
procedure MenuItemPlaySoundClick(Sender: TObject); | procedure MenuItemPlaySoundClick(Sender: TObject); | ||
Revision as of 04:25, 11 December 2019
│ English (en) │
This article applies to macOS only.
See also: Multiplatform Programming Guide
The Apple macOS operating system has many possible alert sounds which you can play to alert your user to various situation that need their attention.
The example application code below shows how to play those alert sounds. In this example the alert sound is being played by choosing a menu item which is just for the purposes of the demonstration.
Note that the choice of 2 for the alert sound to play in this example is purely arbitrary. You should choose the number for the appropriate sound you want to play.
unit unit1;
{$mode objfpc}{$H+}
{$linkframework AudioToolbox}
interface
uses
Forms,
Menus;
type
{ TForm1 }
TForm1 = class(TForm)
MainMenu1: TMainMenu;
MenuItem1: TMenuItem;
procedure MenuItemPlaySoundClick(Sender: TObject);
private
public
end;
var
Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }
// Sound procedure declaration
Procedure AudioServicesPlayAlertSound (inSystemSoundID: UInt32)
external name '_AudioServicesPlayAlertSound';
// Menu item OnClick Event
procedure TForm1.MenuItemPlaySoundClick(Sender: TObject);
begin
AudioServicesPlayAlertSound(2); // Use the appropriate value for the sound you want
end;
end.