https://www.heckjj.com/index.php zh-cn https://www.heckjj.com/post// Heck <@hecks.tk> Wed, 27 Oct 2010 02:52:29 +0000 https://www.heckjj.com/post// 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
]]> https://www.heckjj.com/post//#blogcomment <user@domain.com> Thu, 01 Jan 1970 00:00:00 +0000 https://www.heckjj.com/post//#blogcomment