Delphi演示失去焦点的Edit控件，文字框在失去焦点后应该怎么办，Delphi7源码下载。 　　procedure Register;//在IDE中进行注册 　　begin 　　 RegisterComponents('Samples',[Tmyedit]); 　　 //注册到Samples页中，控件名是Tmyedit 　　end; 　　procedure Tmyedit.wndproc(var message:tmessage); 　　begin 　　 if message.msg=wm_mousemove then 　　 begin 　　 {设置光标为crarrow,而不是缺省的cr