回车键代替Tab键下移焦点

最新推荐文章于 2021-07-01 11:06:56 发布
最新推荐文章于 2021-07-01 11:06:56 发布
阅读量932 收藏
点赞数
CC 4.0 BY-SA版权
分类专栏： Delphi技术专题
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.youkuaiyun.com/jing12/article/details/1780719
本文介绍了一种在Delphi应用程序中实现通过回车键进行控件间导航的方法。具体步骤包括在窗体的OnKeyPress或OnKeyDown事件中捕获回车按键(#13)，并使用Perform函数模拟按下Tab键的效果，实现焦点的转移。此外，还提供了一个简单的条件判断示例，用于排除特定控件（如TStringGrid）的情况。

摘要生成于 C知道 ，由 DeepSeek-R1 满血版支持， 前往体验 >

1、在窗体的OnKeyPress(or OnKeyDown)中加入

if key=#13 then    //如果加在KeyDown中，则为13 or VK_RETURN

begin

  //此处可加条件，若有不需用回车代替的控件，如TstringGrid

  //if not (ActiveControl is TstringGrid) then

  key:=#0;

  Perform(WM_NextDlgCtl,0,0);

End;

2、设置窗体的KeyPreview属性为True

统信系统UOS桌面版V20 用户手册
Reyn_观极
07-27 1万+
UOS桌面版V20用户手册。
HBuilder X 快捷键，多行代码右移动，左移动
lyinshaofeng的博客
06-18 3224
HBuilder X 快捷键，多行代码右移动，左移动
Qt小技巧----文本框回车焦点下移
deroy
07-01 567
来源：微信公众号「编程学习基地」 文章目录回车信号关联焦点下移槽函数设置焦点 回车信号 [signal] void QLineEdit::returnPressed() 这个信号是在按下Return或Enter键时发出的。 关联焦点下移槽函数 connect(ui->lineEdit1, SIGNAL(returnPressed()), this, SLOT(next())); connect(ui->lineEdit2, SIGNAL(returnPressed()), this, S..
Flex表单中回车下移焦点的方法
记性不好，笔记而已
12-01 3256
对于习惯了使用桌面应用程序的用户而言，回车后下移焦点到下一个编辑组件中的小功能，是非常贴心的，利用flex中的KEY_DOWN事件可以方便的实现回车下移焦点，代码如下：  <!--[CDATA[ import mx.containers.HBox; import mx.core.UIComponent; import mx.events.CloseEvent;
JavaScript按住Enter键实现移到下一个焦点
KevinMiGuan的博客
08-22 1063
代码示例如下： <!DOCTYPE html> <html lang="en"> <head> <meta charset="UTF-8"> <title>Document</title> <style> *{margin:0;padding:0;list-style: none;} .box{f...
[VB.NET]Tab＋Shift按下.焦点的移动
gsmlove的专栏
08-30 1068
   在windows默认的情况下, Tab＋Shift按下,焦点是从右向左移动.在其previewkeydown事件下加入以下代码if e.keycode=keys.tab andalso e.shift=true thene.isinputkey=truecall system.windows.forms.sendkeys.fluch()selectnextcontro
enter模拟tab键实现焦点移动
lerry的专栏
10-17 497
<SCRIPT LANGUAGE="JavaScript"> function enterkey() { if(srcElement.id == "提交键ID") 提交 else{ if( event.keyCode == 13) { event.keyCode = 9; } } } </SCRIPT>
Delphi控件使用技巧：回车自动替换成Tab功能实现
- **delphi_回车替Tab下移控件.doc**：这个文档很可能包含实现回车键替代Tab键下移控件的具体步骤、代码示例和解释说明。对于学习和使用Delphi进行表单设计的开发者来说，这类文档是宝贵的资源。 - **下载说明.txt*...
电脑常用快捷键大全（含Visual Studio快捷键操作）
流楚丶格念的博客
02-18 5966
目录 一、系统快捷键 二、常用系统命令 三、QQ快捷键 四、IE浏览器快捷键使用大全 五、Word 中的快捷键 六、Excel 中的快捷键 七、PowerPoint 中的快捷键 八、Visual Studio 九、Eclipse 十、Photoshop 十一、批处理指令 十二、安装操作系统 （此快捷操作对我们程序员十分重要，所以放在前面） 八、Visual Studio 8.1、项目相关的快捷键 ...
超强的 Protel 99 SE快捷键大全
LEI1314的专栏
03-21 2614
Enter——选取或启动                   Esc——放弃或取消F1——启动在线帮助窗               Tab——启动浮动图件的属性窗口Page Up——放大窗口显示比例         Page Down——缩小窗口显示比例 End——刷新屏幕               Del——删除点取的元件（1个）CTRL+Del—删除选取的元件（2个或2个以上）X+A——取
Delphi演示失去焦点的Edit控件.rar
07-10
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;
在界面上用回车键代替tab键切换焦点的办法
浪人的专栏
05-10 1247
现在资源管理器里面，把对话框上左右需要切换焦点的窗口或者按钮的tabstop属性设置为TRUE。 为窗口映射PreTranslateMessage消息处理函数 添加以下代码： if((pMsg->message == WM_KEYDOWN) && (VK_RETURN == (int) pMsg->wParam)) { if(GetFocus()->GetDlgCtrlID() !=
DELPHI常见属性说明
Lixinag的专栏
01-13 2649
 ALIGN 设置组件对齐（同其父容器）方式BORDERSTYLE 设置组件边框形状CAPTION 设置组件标题CTL3D 设置组件边框是否为3D模式，若BORDERSTYLE设置为BSNONE则此属性无效COLOR 设定组件背景颜色CURSOR 设定鼠标经过组件时光标所显示的形状ENABLED 设定组件是否能使用，当设为FALSE时组件会呈灰色FONT 设定组件内文字的字型、字体大小、颜色等HE
去除EditText自动获得的焦点
07-31 1082
当带有EditView的activity第一次进入时，第一个EditText框会自动获得焦点弹出输入法，在保证点击输入框还能正常弹出输入法的情况下，如何去掉这个刚进入弹出来的输入法呢? 关闭输入法的方法都失败了，如下： 先是：     InputMethod
MFC使控件失去焦点的方法
架构设计
06-02 651
转自：http://newthnote.blogbus.com/logs/67403982.html 1.SetFocus另外一个控件 GetDlgItem(另一个控件名)-&gt;SetFocus(); 2.给要失去焦点的控件发WM_KILLFOCUS消息 GetDlgItem(要失去焦点的控件名)-&gt;PostMessage(WM_KILLFOCUS, 0, 0); ::...
Delphi回车键切换焦点
wozengcong的专栏
12-29 2819
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls; type TForm1 = class(TForm) Panel1: TPanel; Label1: T
delphi listview失去焦点后的颜色_jq: 事件-焦点
weixin_39946798的博客
11-29 247
focus -> 获得焦点<blur -> 失去焦点$change 失去焦点之后对比是否改动value值$keyup 按下按键后监听$keydown keypress 按下按键前监听他们的which属性keydown不区分大小写，keypress区分大小写scroll() 滚轮<其他:event.preventDefault() jq中的取消默认事件event.stopPr...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值