Bueno lo que se ocurre es que captures el Mensaje
WM_MENUSELECT del Menú.
He aquí un código Ejemplo >
Código Delphi
[-]type
TForm1 = class(TForm)
...
...
private
Procedure Capturando_Mensaje(var Msg:TMsg);message WM_MENUSELECT; public
end;
Ahora en la Implementacion >
Código Delphi
[-]implementation
{$R *.dfm}
...
...
procedure TForm1.Capturando_Mensaje(var Msg:TMsg);
begin
inherited;
Windows.Beep(2000,100);end;
Si deseas solo emitir el sonido dada alguna específica condicion, pues puedes mirar toda la ayuda disponible en la pagína de Link anterior que te puse.
Saludos...
__________________
"Pedid, y se os dará; buscad, y hallaréis; llamad, y se os abrirá." Mt.7:7