如何将MessageDlg()对话框上的左上角的caption改成自己需要的信息呢？

Question

uses Dialogs
提供了MessageDlg函数，但不知道如何改他的左上角caption信息。
请大家帮助。

Answer 1

用messagebox可惜没有图标。用了几个系统提供的函数，不是没有图标，就是不能修改caption。不知道大家是如何解决这事的。

Answer 2

messagebox(handle,"你好","我好",mbyes);

Answer 3

MessageBox 有图标的，呵呵！
举个例子
MessageBox(handle,'这里是内容!','标题',MB_YES+MB_ICONINFORMATION);
常用图标含义
MB_ICONERROR    错误
MB_ICONINFORMATION   信息
MB_ICONQUESTION   询问

Answer 4

这是Dialogs单元CreateMessageDialog（）函数中修改Caption的一行代码：
if DlgType <> mtCustom then
      Caption := LoadResString(Captions[DlgType]) else
      Caption := Application.Title;或许你可以通过写自己的CreateMessageDialog（）函数来实现。

Answer 5

MessageDlg在Delphi帮助里有几个重载函数，后面几个有Caption参数，但是不知道怎么回事用不了

Answer 6

procedure TForm1.Button1Click(Sender: TObject);
begin
if application.MessageBox('are you sure?','caption is here.',MB_YESNO+MB_ICONINFORMATION)=idyes then
close;
end;

Answer 7

将Consts.pas汉化后编译Consts.dcu到Lib目录～～