MessageBox的问题！

Question

msgbox(frmfy.Handle,'附页中文字已经改变'+#13#10#13#10+'想保存文件吗?','确定',mb_yesnocancel+MB_ICONQUESTION+mb_defbutton1+mb_applmodal)还是MsgBox(
     self.handle, '提示信息',
     '真的要退出本模块吗?',
        MB_ICONQUESTION,
    MB_OKCANCEL) = mrOk

Answer 1

不好意思，好才发贴时提示错误，也没多管，没想到发出这么个不伦不类的东西：）我的问题如下: if MessageBox(Application.Handle, Pchar('初始化将清空所有的数据?'), '提示信息', MB_OKCANCEL+MB_ICONWARNING)=IDOK then我想在MessageBox弹出后焦点自动停在"取消"按钮上，默认为"确定按钮！
该怎么做，谢谢各位！

Answer 2

if MessageBox(Application.Handle, Pchar('初始化将清空所有的数据?'), '提示信息', MB_OKCANCEL+MB_ICONWARNING+mb_defbutton1)=IDOK then

Answer 3

给你个例子,自己琢磨吧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;

Answer 4

楼上的焦点落在确定上了，应该把mb_defbutton1改为mb_defbutton12

Answer 5

楼上的焦点落在确定上了，应该把mb_defbutton1改为mb_defbutton12

Answer 6

if MessageBox(Application.Handle, Pchar('初始化将清空所有的数据?'), '提示信息', MB_OKCANCEL+MB_ICONWARNING+mb_defbutton2)=IDOK then

Answer 7

if MessageBox(Application.Handle, Pchar('初始化将清空所有的数据?'), '提示信息', MB_OKCANCEL+MB_ICONWARNING+MB_DEFBUTTON2)=IDOK then

Answer 8

发错了,应该是messagebox
那就是
messagebox('要显示的信息','form的caption',TMessageBtn);
例如
Application.messagebox('重新输入,'提示',MB_OK);

Answer 9

或者(在DELPHI中建议使用下面这种方法)
   if  Application.MessageBox(Pchar('初始化将清空所有的数据?'), '提示信息', MB_OKCANCEL+MB_ICONWARNING+mb_defbutton2)=IDOK then