光标的设置？(delphi5.0)

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中?

Answer 1

在2000，xp下没问题，我没98，无法测试，弹出MessageBox的时候Form会失去焦点，你先让Form获取焦点，在试试。begin
  self.SetFocus; 
  edit18.SetFocus；
  edit18.SelectAll 
 end

Answer 2

miky(miky) 大哥感谢了。OK了
给你分哦。