如何让messagedlg函数的按钮部分用汉字表示

Question

大家好：
messagedlg函数的按钮部分是已定义好的一个集合，说明如下：
type 
  TMsgDlgBtn = (mbYes, mbNo, mbOK, mbCancel, mbAbort, mbRetry, mbIgnore, mbAll, mbNoToAll, mbYesToAll, mbHelp);  TMsgDlgButtons = set of TMsgDlgBtn;
请问大家能否把按钮部分用汉字表示。如下面这个例子：
if MessageDlg('现在开始打印吗？',
    mtConfirmation, [确定,退出], 0) = mrYes then
showmessage('成功');
但程序一直提示出错，急用这个功能，望大家能给出详细代码。
谢谢！                                
                                                            王振亚
                                                          2003.11.11

Answer 1

用messagebox吧
if application.messagebox(pchar('提示信息'),pchar('标题'),mb_yesno)=mryes then
your code