Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Trucos (https://www.clubdelphi.com/foros/forumdisplay.php?f=52)
-   -   Mostrar un MessageDlg con su correspondiente sonido asociado (https://www.clubdelphi.com/foros/showthread.php?t=80431)

dec 07-06-2006 21:36:12

Mostrar un MessageDlg con su correspondiente sonido asociado
 
La siguiente función muestra el diálogo que se consigue con la función "MessageDlg", pero, además de eso añade a esta el que se ejecuta el sonido asociado al tipo del mensaje que se necesite mostrar al usuario:

Código Delphi [-]
uses
  Dialogs;

function MessageDlgSonoro(const Msg: string; DlgType: TMsgDlgType;
  Buttons: TMsgDlgButtons; HelpCtx: Longint): Integer;
const
  S: array [TMsgDlgType] of integer = (MB_OK, MB_ICONHAND,
    MB_ICONQUESTION, MB_ICONASTERISK, MB_ICONEXCLAMATION);
begin
  MessageBeep(S[DlgType]);
  Result := MessageDlg(Msg,DlgType,Buttons,HelpCtx);
end;


La franja horaria es GMT +2. Ahora son las 23:29:48.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi