procedure WMSetFocus (var Message: TWMSetFocus); message WM_SETFOCUS; //获得焦点
procedure WMKillFocus (var Message: TWMKillFocus); message WM_KILLFOCUS; //失去焦点
procedure WMGetDlgCode (var Message: TWMGetDlgCode); message WM_GETDLGCODE;
procedure CMEnter (var Message: TCMGotFocus); message CM_ENTER;
procedure CMExit (var Message: TCMExit); message CM_EXIT;
procedure WMPaste (var Message: TWMPaste); message WM_PASTE;
procedure WMCut (var Message: TWMCut); message WM_CUT;
WM_SETFOCUS和WM_KILLFOCUS、WM_GETDLGCODE
原文：http://www.cnblogs.com/h2zZhou/p/6386857.html