处理OnExit后界面光标不见了

Question

我在Form上Edit1控件的OnExit中加了判断代码
procedure TForm1.Edit1Exit(Sender: TObject);
begin
if Edit1.Text = '0' then
   ShowMessage('...'),
...结果Form上的光标不见了,如何恢复?

Answer 1

if Edit1.Text = '0' then
  begin
   ShowMessage('...'),
   Edit1.SetFocus;
  end;

Answer 2

这是死循环!
Edit1.OnExit后再Edit1.SetFocus ?

Answer 3

Form上不只一个Edit,有很多的控件,在控件上回车会自动转移焦点的,
OnExit后焦点设置正确,只是没有光标而已