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.654
Reputación: 27
dec Tiene un aura espectaculardec Tiene un aura espectacular
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