Oct 27

带语音的对话框 不指定

Heck , 10:52 , 编程杂谈 , 评论(0) , 引用(0) , 阅读(905) , Via 本站原创 | |
        VCL里的MessageDlg没有声音,而标准的windows消息对话框是带声音的

可以用下面的函数解决:

function MsgDlg (const msg: string; atype: TMsgDlgType; abuttons: TMsgDlgButtons; helpctx: Longint): Word;
var mb: CARDINAL;
begin
case AType of
  mtWarning:      mb:= MB_ICONEXCLAMATION;
  mtError:        mb:= MB_ICONHAND;
  mtInformation:  mb:= MB_ICONASTERISK;
  mtConfirmation: mb:= MB_ICONQUESTION;
  else            mb:= $0FFFFFFFF;
end;
MessageBeep (mb);
MsgDlg:= MessageDlg (msg, atype, abuttons, helpctx);
end


来源:Heck's Blog
地址:http://www.hecks.tk/post/309/
转载时须以链接形式注明作者和原始出处及本声明,否则将追究法律责任,谢谢配合!