zoukankan
html css js c++ java
古老话题:如何实现应用程序中的”回车”成TAB?
如何实现应用程序中的”回车”成TAB?
其实方法有很多种,但哪一种才是最简洁、最灵活的呢?
下面的方法就是博主最常使用的方法:
一、在你的数据模块中,添加如下代码:
interface 。。。。。。 type TMessageHandler = class //使得回车消息转换成Tab消息 class procedure AppMessage(var Msg:TMsg;var Handled:Boolean); end; implementation class procedure TMessageHandler.AppMessage(var Msg: TMsg; var Handled: Boolean); begin if Msg.message=WM_KEYDOWN then if (Msg.wParam=VK_RETURN ) and ( (Screen.ActiveForm.ActiveControl is TEdit) or (Screen.ActiveForm.ActiveControl is TComboBox) or (Screen.ActiveForm.ActiveControl is TCheckBox) or (Screen.ActiveForm.ActiveControl is TRadioButton) //可以添加需要的控件 ) then begin Msg.wParam:=VK_TAB; end else if (Msg.wParam=VK_RETURN) and ( (Screen.ActiveForm.ActiveControl is TDBGrid) ) then begin with Screen.ActiveForm.ActiveControl do begin if Selectedindex<(FieldCount-1) then Selectedindex:=Selectedindex+1{ 移动到下一字段} else Selectedindex:=0; end; end; end;
二、为了使得整个应用程序都能够实现主要的功能,在主窗体的OnCreate事件中添加如下代码:
procedure TfmMain.FormCreate(Sender: TObject); begin Application.OnMessage:=TMessageHandler.AppMessage; end;
到此为止,你的应用程序已经实现了这个Enter->Tab的转换.
谢祥选【小宇飞刀(xieyunc)】
查看全文
相关阅读:
PHP
Python语言特性
Selenium2+python自动化
Linux命令--系统管理
Linux命令--网络管理
Linux命令--压缩解压(简化版)
Linux--压缩解压命令
Linux命令--用户管理
Linux命令--获取帮助
Linux命令--权限管理
原文地址:https://www.cnblogs.com/xieyunc/p/9126611.html
最新文章
POI 读取 excel
Dynamics 365-下载新版本的开发工具
打开 CRM 时,出现错误:"Invalid Action – The selected action was not valid"
c# 获取某日期所在周的第一天和最后一天
各種日期時間計算
Linux安装MySql.Data for mono
修改BIND9实现TCP DNS
ubuntu-利用pdnsd-TCP方式获取IP-拒绝DNS污染
Samba 4 Domain Controller on Ubuntu 14.04 LTS
Git 安装与简单使用(新手必看)
热门文章
C#扩展方法
Centos7.0挂载优盘安装jdk1.7和tomcat7.0
C#泛型比较大小
C#泛型对类型参数的推断
为什么要使用泛型?泛型和非泛型对比
C#事件学习
C#委托学习
C#自动实现的属性
C#隐式类型
渗透测试面试基础--01
Copyright © 2011-2022 走看看