Question

delphi7 messagebox 是否可以更改按钮上文字为用户自定义的。

比如设置messagebox 有“是”，“否”，“取消”三个按钮，如何变按钮上的文字为“连线”，“断线”，“取消”？？？

Answer 1

自己做个Form然后动态加载吧，无法自定义按钮文本的

Answer 2

我当年曾经做过这个，简单点说就是用SetWindowsHookEx设置一个WH_CBT钩子，然后在HCBT_ACTIVATE中修改Button就可以了

Answer 3

1、函数原型及参数

function MessageBox(hWnd:HWND;Text, Caption:PChar;Type:Word): Integer;

hWnd：对话框父窗口句柄，对话框显示在Delphi窗体内，可使用窗体的Handle属性，否则可用0，使其直接作为桌面窗

口的子窗口。

Text：欲显示的信息字符串。

Caption：对话框标题字符串。

Type：对话框类型常量。

该函数的返回值为整数，用于对话框按钮的识别。

2、类型常量

对话框的类型常量可由按钮组合、缺省按钮、显示图标、运行模式四种常量组合而成。

（1）按钮组合常量

MB_OK=$00000000; //一个确定按钮

MB_OKCANCEL=$00000001; //一个确定按钮，一个取消按钮

MB_ABORTRETRYIGNORE=$00000002; //一个异常终止按钮，一个重试按钮，一个忽略按钮

MB_YESNOCANCEL=$00000003; //一个是按钮，一个否按钮，一个取消按钮

MB_YESNO=$00000004; //一个是按钮，一个否按钮

MB_RETRYCANCEL=$00000005; //一个重试按钮，一个取消按钮

（2）缺省按钮常量

MB_DEFBUTTON1=$00000000; //第一个按钮为缺省按钮

MB_DEFBUTTON2=$00000100; //第二个按钮为缺省按钮

MB_DEFBUTTON3=$00000200; //第三个按钮为缺省按钮

MB_DEFBUTTON4=$00000300; //第四个按钮为缺省按钮

（3）图标常量

MB_ICONHAND=$00000010; //“×”号图标

MB_ICONQUESTION=$00000020; //“？”号图标

MB_ICONEXCLAMATION=$00000030; //“！”号图标

MB_ICONASTERISK=$00000040; //“i”图标

MB_USERICON=$00000080; //用户图标

MB_ICONWARNING=MB_ICONEXCLAMATION; //“！”号图标

MB_IConERROR=MB_ICONHAND; //“×”号图标

MB_ICONINFORMATION=MB_ICONASTERISK; //“i”图标

MB_ICONSTOP=MB_ICONHAND; //“×”号图标

（4）运行模式常量

MB_APPLMODAL=$00000000; //应用程序模式，在未结束对话框前也能切换到另一应用程序

MB_SYSTEMMODAL=$00001000; //系统模式，必须结束对话框后，才能做其他操作

MB_TASKMODAL=$00002000; //任务模式，在未结束对话框前也能切换到另一应用程序

MB_HELP=$00004000; //Help Button

3、函数返回值

0 //对话框建立失败

idOk=1 //按确定按钮

idCancel=2 //按取消按钮

idAbout=3 //按异常终止按钮

idRetry=4 //按重试按钮

idIgnore=5 //按忽略按钮

idYes=6 //按是按钮

idNo=7 //按否按钮

{显示图标}

MessageBox(Handle, PChar('消息文字'), PChar('对话框标题'), MB_ICONWARNING or MB_OK);

{不显图标}

MessageBox(Handle, PChar('消息文字'), PChar('对话框标题'), MB_OK);

{默认按钮}

MessageBox(Handle, PChar('消息文字'), PChar('对话框标题'), MB_YESNO or MB_DEFBUTTON2);

{复合用法}

MessageBox(Handle, PChar(Self.Caption +#13#10 + '消息文字'), PChar('对话框标题'), MB_OK);

{判断返回值}

if MessageBox(Handle, PChar('消息文字'), PChar('对话框标题'),

MB_ICONQUESTION or MB_OKCANCEL or MB_DEFBUTTON1) = IDOK then

begin

// Add your code here

end;

case MessageBox(Handle, PChar('消息文字'), PChar('对话框标题'),

MB_ICONQUESTION or MB_OKCANCEL or MB_DEFBUTTON1) of

IDOK: // Add your code here

IDCANCEL: // Add your code here

end;

case MessageBox(Handle, PChar('消息文字'), PChar('对话框标题'),

MB_ICONQUESTION or MB_ABORTRETRYIGNORE or MB_DEFBUTTON1) of

IDABORT: // Add your code here

IDRETRY: // Add your code here

IDIGNORE: // Add your code here

end;

case MessageBox(Handle, PChar('消息文字'), PChar('对话框标题'),

MB_ICONQUESTION or MB_YESNO or MB_DEFBUTTON1) of

IDYES: // Add your code here

IDNO: // Add your code here

end;

case MessageBox(Handle, PChar('消息文字'), PChar('对话框标题'),

MB_ICONQUESTION or MB_RETRYCANCEL or MB_DEFBUTTON1) of

IDRETRY: // Add your code here

IDCANCEL: // Add your code here

end;

case MessageBox(Handle, PChar('消息文字'), PChar('对话框标题'),

MB_ICONQUESTION or MB_YESNOCANCEL or MB_DEFBUTTON1) of

IDYES: // Add your code here

IDNO: // Add your code here

IDCANCEL: // Add your code here

end;

用法：MessageBox(handle,'内容','标题',MB_YESNOCANCEL OR MB_ICONQUESTION)