当前位置: 源码素材网 » Delphi源码 » 报表打印 » 详情页

Delphi演示失去焦点的Edit控件

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;

  • 相关标签:文字框 焦点
  • 调试环境:Delphi7+
  • 文件大小:9.32K
  • 资源评级:
  • 更新时间:2019-05-14
  • 相关链接:暂无演示

源码测试截图:

Delphi演示失去焦点的Edit控件运行截图

相似源码:文字框 焦点 Delphi源码下载:Delphi演示失去焦点的Edit控件 测试截图

下载声明:

本站资源仅供学习参考,禁止用于非法途径。若“Delphi演示失去焦点的Edit控件”源代码侵犯了您的权益,请尽快告诉我们。