对话框问题

Application.MessageBox('是否接收此故障单?','提示',MB_ICONQUESTION+MB_OKCANCEL)   =   IDCANCEL  
   
  此对话框弹出后默认的焦点在OK上，如何才能让他在Cancel呢？ 问题点数：20、回复次数：7Top

1 楼lxpbuaa（桂枝香在故国晚秋）回复于 2002-05-21 19:43:35 得分 0

将：  
  '是否接收此故障单?'  
  改为：  
  '不接收此故障单吗?'  
  OK！  
   
   
  —————————————————————————————————  
  MaximStr   :=   '宠辱不惊，看庭前花开花落，去留无意；  
                            毁誉由人，望天上云卷云舒，聚散任风。';  
  if   Not   Assigned(I)   then  
      I   :=   TI.Create(Nil);  
  I.Maxim   :=   MaximStr;  
  I.Explain   :=   '假如上述代码中出现“OA”等字样，删除它们';  
  I.Desire   :=   '加不加分随你';  
  —————————————————————————————————  
   
   
  　　　　　　　  
  Top

2 楼chunfly（春雨飘飞）回复于 2002-05-21 19:59:22 得分 0

老板要求这种效果！Top

3 楼xxj（弹指一挥间）回复于 2002-05-21 20:01:04 得分 10

加上mb_default2Top

4 楼lizhenjia（暴雪）回复于 2002-05-21 20:02:47 得分 10

加分吧!  
  if   Application.MessageBox('接收此故障单吗?','提示',MB_OKCANCEL+MB_ICONQUESTION+MB_DEFBUTTON2)=IDCANCEL   thenTop

5 楼rst_2828（海岛管理员）回复于 2002-05-21 20:23:08 得分 0

up  
  Top

6 楼xiaolei_418（）回复于 2002-05-21 20:24:35 得分 0

if   MessageDlg('接收此故障单吗?',  
                  mtConfirmation,   [mbYes,   mbNo],   0)   =   mrNo   thenTop

7 楼haohaisen（hhs）回复于 2002-05-21 20:39:22 得分 0

同意LIZHEBJIA(暴雪)Top

相关问题

• 接收此故障单
• mb

• 帖主：chunfly
• xxj
• lizhenjia

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载