没有焦点的控件如何响应ONEXIT事件?

没有焦点的控件如何响应ONEXIT事件? VCL组件开发及应用
http://www.delphi2007.net/DelphiVCL/html/delphi_20061222090924204.html
 
  简单代码如下:  
  procedure   TForm1.Edit1Enter(Sender:   TObject);  
  begin  
    Panel1.Show;  
  end;  
   
  procedure   TForm1.Edit1Exit(Sender:   TObject);  
  begin  
    Panel1.Hide;  
  end;  
   
  如果点击其他有焦点的控件,Panel1会隐藏,但点击窗体,按纽等,Panel1不会隐藏  
  如果解决这个问题?