msgbox(frmfy.Handle,'附页中文字已经改变'+#13#10#13#10+'想保存文件吗?','确定',mb_yesnocancel+MB_ICONQUESTION+mb_defbutton1+mb_applmodal)还是MsgBox(
self.handle, '提示信息',
'真的要退出本模块吗?',
MB_ICONQUESTION,
MB_OKCANCEL) = mrOk
self.handle, '提示信息',
'真的要退出本模块吗?',
MB_ICONQUESTION,
MB_OKCANCEL) = mrOk
解决方案 »
- listview为什么不显示列头(列标题)?
- Messagebox的右上角
- TList 怎么存取n个record结构?
- 新手求助:请问各位朋友,学delphi,可以不用学pascal吗?我指的pascal,不是:Object Pascal!
- 如何获取dbnavigator上的单个按扭的单击事件?等
- 紧急求助:strtodate转换后的格式以及日期之间的运算问题。
- access数据库查询问题,如何根据行号提取记录??
- 新技术的困惑!
- 为什么资源文件找不到?
- 如何写毕业论文
- batchmove如何使用?
- 这给id中的可用分有很多!可惜等级不够,散分。不过也有一点小问题。解决了在给分。有GIS方面的资料吗?控件也行,你的大作也可以
该怎么做,谢谢各位!
给你个例子,自己琢磨吧var dsign:TModalResult;
begin
dsign:=messagedlg('是否删除?',mtconfirmation,mbyesnoCancel,6); if dsign=6 then \\选中了yes
begin
......
end
else if dsign=7 then \\选中了no
begin
.....
end
else \\选中了cancel
begin
......
end;
那就是
messagebox('要显示的信息','form的caption',TMessageBtn);
例如
Application.messagebox('重新输入,'提示',MB_OK);
if Application.MessageBox(Pchar('初始化将清空所有的数据?'), '提示信息', MB_OKCANCEL+MB_ICONWARNING+mb_defbutton2)=IDOK then