文件名称：Delphi演示失去焦点的Edit控件.rar
文件大小：9KB
文件格式：RAR
更新时间：2022-07-30 04:47:08
Delphi源码-报表打印
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,而不是缺省的crBeam光标} cursor:=crarrow; exit; end; {屏蔽掉WM_SetFocus消息,不让Tmyedit控件获得输入焦点} if message.msg=wm_SetFocus then exit;{什么也不执行} inherited wndproc(message);{其它消息交父辈的wndproc处理} end;
【文件预览】：
srcfans.com
----MyEdit()
--------Unit1.ddp(51B)
--------EDIT.cfg(390B)
--------EDIT.DPK(536B)
--------Project1.res(876B)
--------Unit1.dcu(3KB)
--------EDIT.DCU(2KB)
--------Unit1.dfm(515B)
--------Project1.cfg(386B)
--------MYEDIT.DCU(3KB)
--------MYEDIT.PAS(933B)
--------Project1.dpr(188B)
--------EDIT.dof(1KB)
--------EDIT.RES(2KB)
--------Project1.dof(1KB)
--------Unit1.pas(351B)