Ver Mensaje Individual
  #1  
Antiguo 07-06-2006
Avatar de dec
dec dec is offline
Moderador
 
Registrado: Dec 2004
Ubicación: Alcobendas, Madrid, España
Posts: 12.617
Reputación: 27
dec Va camino a la famadec Va camino a la fama
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;
Responder Con Cita