请问form上控件的焦点转移事件是什么，如何获取？

在Type下面重新定义
   Tedit = class(stdctrls.Tedit)
    procedure CMExit(var Message: TCMExit); message CM_EXIT;
在实现部分生成
{ Tedit }procedure Tedit.CMExit(var Message: TCMExit);
begin
  if Trim(self.Text)<>'' then
  begin
    showmessage('输入的数据无效!');
    self.SetFocus;
  end;end;