光标设置问题？

Question

if application.MessageBox('是否继续捆绑 ？'),'提示',MB_YESNO+MB_DEFBUTTON2+MB_ICONQUESTION)=IDNO then
 button2.Click
 else
 begin
 edit18.SetFocus；
 edit18.SelectAll 
 end
以上程序我想当用户点击"YES"的时候光标设置到edit18,可是edit18中没有闪烁的光标，但你输入字符时，字符在edit18的框内，怎样才能完成对话框后，将光标弄到edit18中? 
回复人： miky(miky) ( ) 信誉：105  2004-6-26 18:54:53  得分: 20  
在2000，xp下没问题，我没98，无法测试，弹出MessageBox的时候Form会失去焦点，你先让Form获取焦点，在试试。begin
  self.SetFocus; 
  edit18.SetFocus；
  edit18.SelectAll 
 end miky(miky) ( )dd：不行哦，现在又不行啦？  
 

Answer 1

我用的是delphi5.0+win98。为什么会这样，高手们就没有这个问题吗？

Answer 2

不用MessageBox 换 MessageDlg 试试。

Answer 3

大富翁上的帖子，你去看看。http://www.delphibbs.com/delphibbs/dispq.asp?lid=688017

Answer 4

有没有补救的方法？
当然我不是说用showmessage,messagedlg来做，这这两个功能有弱。