如何显示有"Yes to All", "No to All"之类按钮的消息对话框?(100分)

  • 主题发起人 主题发起人 c4
  • 开始时间 开始时间
C

c4

Unregistered / Unconfirmed
GUEST, unregistred user!
就像WinZip覆盖文件前提示对话框中有"Yes to All"和"No to All"按钮,请问如何用
Application.MessageBox或者Windows API实现?
 
用messagedlg函数,参见帮助
 
如MessageDlg('Welcome',
; ; mtConfirmation, [mbYes, mbNo,mbYesToAll,mbNoToAll], 0) ;
其中[]中为下面的任意组合.
TMsgDlgBtn = (mbYes, mbNo, mbOK, mbCancel, mbAbort, mbRetry,
; ; ; ; ; ; ; mbIgnore, mbAll, mnNoToAll, mbYesToAll, mbHelp);
 
为何不用delphi自行写一个信息对话框。
 
也可以用Application.messagebox('xxx','xxx',参数);
看帮助
 
如:
if Application.MessageBox(
; ; ; ; '这是一个对话框', '对话框',
; ; ; ; MB_OKCANCEL + MB_DEFBUTTON1) <> IDOK then
; ; ; ; exit
; ; ; ; else
; ; ; ; exit;
 
查了一下帮助,MessageBox好像没法显示"Yes to ALl"按钮的吧,而MessageDlg好像是
可以得。
 
MessageDlg的按钮是中文的吗?
 
英文的。还想请教各位,这些"Yes","No","Yes to All", "No to all"的按钮先后次序能否
改变?另外对话框的Title能否改变?
 
自己做一个吧,英文显示多么难看啊。
 
%$&^%$&^#$&^%
 
to pcexplorer:
; %$&^%$&^#$&^% 是什么意思?我看不太懂啊。
 
MessageDlg 调用了 CreateMessageDialog 函数,实际创建了自定义的 Form。到 Dialogs
单元中看看源码就知道了,Caption,Buttons 的 Caption 和 顺序等你都可以去改的。
 
多人接受答案了。
 
后退
顶部