请问使用Messagedlg()弹出的对话框,可以修改标题和按钮文字吗?

Question

用Application.Messagebox('中文按钮','提示',16+0+0)；
其中16+0+0部分查看帮可组合各种按钮，如'确定'、'取消'等。

Answer 1

用MessageBox
int MessageBox(    HWND hWnd, // handle of owner window
    LPCTSTR lpText, // address of text in message box
    LPCTSTR lpCaption, // address of title of message box  
    UINT uType  // style of message box
   );如：MessageBox(handle,'你好！','标题',MB_OK+MB_ICONERROR);
关于后面MB_OK,MB_ICONERROR你可以参考帮助
如果不能直接使用的话，可能 uses 中要加个 shellapi

Answer 2

建议用application.messagebox
如果非用messagedlg可以这样汉化。const下的yes,no,等常量。dialogs下的intputbox。
griphics下的加个宋体
procedure InitDefFontData;
var
  Charset: TFontCharset;
begin
  DefFontData.Height := -MulDiv(8, ScreenLogPixels, 72);
  if not SysLocale.FarEast then Exit;
  Charset := GetDefFontCharset;
  case Charset of
    SHIFTJIS_CHARSET:
      begin
        DefFontData.Name := '俵俽 俹僑僔僢僋';
        DefFontData.Height := -MulDiv(9, ScreenLogPixels, 72);
        DefFontData.CharSet := CharSet;
      end;
    GB2312_CHARSET:
    begin
        DefFontData.Name := '宋体';
        DefFontData.Height := -MulDiv(9, ScreenLogPixels, 72);
        DefFontData.CharSet := CharSet;
    end;
  end;
end;
然后单起个工程编译。将相关dcu拷到lib下

Answer 3

再送你一贴：
转载:Messagebox()详解(会用messagebox()就够了)
 
作者：程 诚      http://tkggai.myetang.com
 
语法：Messagebox(const text:Pchar;const Caption:Pchar;Flags:integer) 
参数描述：      Text     指定在对话框中显示的文本。在Text中，可用回车符chr(13)来进行分行。对话框的大小由你显示文本的多少来自动调整。      Caption 是对话框的显示标题。      Flags    指定对话框中的按钮和图标、显示对话框时的默认按钮及对话框的行为。    在下面的表中，对话框按钮值是从0---5；图标值是16，32，48，64四个值；按钮的默认值只有三个：0，256，512；此函数的值是从1---7。           数值   对话框按钮                           数值               图标
         -----  --------------------------          -------          -------------  
           0      仅有"确定"按钮                      16            "停止"图标
              
           1     "确定"、"取消"按钮                   32               问号 
                      
           2     "放弃"、"重试"、"忽略"按钮            48              惊叹号 
             
           3     "是"、"否"、"取消"按钮                64            信息(!)图标
              
           4     "是"、"否"按钮        
           
           5     "重试"、"取消"按钮
             
                   
            数值       默认按钮              
           -----      ----------        
             0           第一个                  
                                        
            256          第二个               
                                        
            512          第三个   
                  
                                        
          返回值        代表意思                                
          ------       ---------  
            1             确定            
      
            2             取消          
      
            3             放弃          
      
            4             重试          
      
            5             忽略           
      
            6              是          
        
            7              否
  
 
举例说明： 
    Application.messagebox('对不起，输入数据错误！'，'程诚提示'，0+64）;      i:=application.messagebox('你真的要删除吗？'，'警告',4+32+7);      application.messagebox('你要写的话'+chr(13)+'下行要写的话','标题',0);       i此时有两个选择：是（6),否(7).默认值为：否。高级举例：      你想让你的message能自定义吗？      var s:pchar;         s:='对不起，请重新输入！';         application.messagebox(s,'程诚提示',0);　
 
     以上只是我个人平时使用的总结，如有不当之处请来来信指出，谢谢！！我的信箱 
  是：[email protected]或[email protected]。