delphi7 messagebox 是否可以更改按钮上文字为用户自定义的。
比如设置messagebox有“是”,“否”,“取消”三个按钮,如何变按钮上的文字为“连线”,“断线”,“取消”???...
比如设置messagebox 有“是”,“否”,“取消”三个按钮,如何变按钮上的文字为“连线”,“断线”,“取消”???
展开
3个回答
展开全部
自己做个Form然后动态加载吧,无法自定义按钮文本的
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
我当年曾经做过这个,简单点说就是用SetWindowsHookEx设置一个WH_CBT钩子,然后在HCBT_ACTIVATE中修改Button就可以了
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
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)
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)
参考资料: http://hi.baidu.com/iamhoudao/blog/item/535309d4bd0a8812a18bb72e.html
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询