MessageBox(),我想实现对话框上有4个按钮：[yes] [all yes] [no] [all no]。其实是类似卸载软件时，如果有dll，系统出的提示那种。

MessageDlgPosHelp('xxxxxxxxxx', mtInformation,  [mbYes, mbYesToAll, mbNo, mbNoToAll],0,0,0,'');

解决方案 »

  1.   

    MessageDlg('xxxxxxxxxx', mtInformation,  [mbYes, mbYesToAll, mbNo, mbNoToAll],0);
      

  2.   

    MessageDlg的原型声明function MessageDlg
    (const Msg：string;AType:TMsgDlgType;AButtons:TMsgDlgButtons;
    HelpCtx:Longint):Word;其中Msg为提示信息，如“同名文件存在，是否覆盖？”。AType为显示的窗口类型，参考如下：mtWarning  警告信息显示窗口(就是带个黄三角惊叹号的那种）
    mtError 错误信息窗口(红色叉号）
    mtInformation 说明信息窗口（白色惊叹号）
    mtConfirmation　确认信息窗口（白色问号）
    mtCustom 自定义的信息窗口AButtons为窗口上要显示的按钮，如下：mbYes　　加上“是”按钮　返回值：mrYes
    mbNo　　加上“否”按钮　返回值：mrNo
    mbOk　　加上“确定”按钮　返回值：mrOk
    mbCancel　　“取消”按钮　返回值：mrCancel
    mbHelp　　“帮助”按钮　返回值：mrHelp
    mbAbort　　“中止”按钮　返回值：mrAbort
    mbRetry　　“重试”按钮　返回值：mrRetry
    mbIgnore　　“忽略”按钮　返回值：mrIgnore
    mbAll　　“全部”按钮　返回值：mrAll然后就是楼上的
    MessageDlg('同名文件存在，是否覆盖?', mtInformation,  [mbYes, mbYesToAll, mbNo, mbNoToAll],0);再根据返回值做不同的处理即可
      

  3.   

    谢谢！！！
    mbYesToAll,mbNoToAll
    --编译不过去呀，这两个不认识。
    btw我用的是delphi2。
      

  4.   

    用API函数：MessageBox('Hello blackdankey (黑驴少爷)', 'Caption',  mb_Yes+ mb_YesToAll+mb_No+mb_NoToAll+mT_Error);应该可以了吧(^_^)!
      

  5.   

    对不起，love4cz(^_^)(丑丑)：
    贴子结早了，没能给你分儿。mb_YesToAll 这个东东，我的delphi2不认识呀。
      

  6.   

    有没搞错blackdankey(黑驴少爷) ，现在已经二十一世纪了耶