【文件属性】:
文件名称: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)