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
