社区
Delphi
帖子详情
大家好,各位能否帮初学的我解决一个问题?
lyx19990623
2003-08-19 04:21:00
各位大侠:
我的问题可能对您来说太简单了,可是对于初学的我不知该如何解决?
我作了一个窗体,上面有许多edit1、2、3、4、5、等等,我把创建窗体的时候先激活第一个要求用户输入的edit,当用户输入完毕后我想用“回车Enter”的方式自动激活下一个要求输入的edit,我的问题是:1、我该用Onkeydown事件还是Onenter事件;2、该如何写(我用变化edit.taborder、edit.enabled的方式都不行)?
...全文
42
14
打赏
收藏
大家好,各位能否帮初学的我解决一个问题?
各位大侠: 我的问题可能对您来说太简单了,可是对于初学的我不知该如何解决? 我作了一个窗体,上面有许多edit1、2、3、4、5、等等,我把创建窗体的时候先激活第一个要求用户输入的edit,当用户输入完毕后我想用“回车Enter”的方式自动激活下一个要求输入的edit,我的问题是:1、我该用Onkeydown事件还是Onenter事件;2、该如何写(我用变化edit.taborder、edit.enabled的方式都不行)?
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
14 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
lyx19990623
2003-08-19
打赏
举报
回复
谢谢你
97866
2003-08-19
打赏
举报
回复
这样写下跳下一个对象跟对象的TabOrder的值有关,也就是跟你添加对象的顺序有关(不过你可以调整TabOrder顺序)。
if (ActiveControl is TEdit)and (Key=VK_DOWN) then //向下键下跳一个对象。
Perform(WM_NEXTDLGCTL,0,0);
if (ActiveControl is TEdit)and (Key=VK_UP) then //向上键上跳一个对象。
Perform(WM_NEXTDLGCTL,1,0);
ActiveControl is TEdit 表示当前获得焦点(激活)的控件是否是TEdit控件。
VK_Return 是Windows单元里面定义的常量。你可以在代码编辑器中按住Ctrl键 再用鼠标点VK_Return就可以看到各个键的常量值。
将光标移到Perform,按住F1键。帮助里有Perform的详细说明和例子。
KeyPreview属性设为True表示窗体响应Form上所有对象的KeyDown事件。
lyx19990623
2003-08-19
打赏
举报
回复
97866,您好:
(ActiveControl is TEdit)中的ActiveControl是form的属性吧,我打开选择时有好多edit,
而你写的是is tedit,不是选择和手写是一样的吗?区别是什么?
(Key=VK_Return) 中的VK_Return是什么意思呀?
Perform(WM_NEXTDLGCTL,0,0)是什么函数?具体意思能否告知?
将Form的KeyPreview属性设为True:设为true后是什么意思?
情不要怪问题太多,因为我初学,不懂,谢谢大侠
sduzjw
2003-08-19
打赏
举报
回复
h 上網上去搜,保證可以找到,充分利用網絡
lyx19990623
2003-08-19
打赏
举报
回复
97866,您好:
您是高手,能否说明一下具体的意思吗?谢谢谢谢
lyx19990623
2003-08-19
打赏
举报
回复
谢谢,我是初学者,没有计算机基础,不知该如何获取此类知识,能否介绍一下吗?各位热心的大侠
97866
2003-08-19
打赏
举报
回复
在Form的OnKeyDown里面写:
if (ActiveControl is TEdit)and (Key=VK_Return) then
Perform(WM_NEXTDLGCTL,0,0);
将Form的KeyPreview属性设为True;
santafeng
2003-08-19
打赏
举报
回复
key=#13 回车
lyx19990623
2003-08-19
打赏
举报
回复
cipherliu 您好:
用keydown事件和keypress一样吗?
if key=VK_return 中的VK是什么意思呀?
lyx19990623
2003-08-19
打赏
举报
回复
key=#13 是换行的标志对吗?
Cipherliu
2003-08-19
打赏
举报
回复
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key=VK_RETURN then
edit2.SetFocus;
end;
依些类推却可
hongqi162
2003-08-19
打赏
举报
回复
edit1.SetFocus;
onkeypress;
lyx19990623
2003-08-19
打赏
举报
回复
谢谢您,我先作一下,再问您好吗?
yhncom_36
2003-08-19
打赏
举报
回复
写onkeypress事件
if key=#13 then edit2.setfcous
其它同理!
初学
者利用c语言
解决
简单的数学
问题
c语言是一款面向用户十分精确的底层语言,为了初步更好的学习它,我们可以自建一些小程序来简单的完成基础数学
问题
,或者是方便生活的小软件 例如:鸡兔同笼;华氏度摄氏度之间的转换;坐标系内求两点的长度;计算基础形体的体积或是表面积等等。 下面我以三个较为典型的例子进行叙述 鸡兔同笼
问题
鸡兔同笼也就是告诉我们笼内总共有几只脚,总共有几个头有我们通过鸡兔之间的特征计算出鸡和兔分别有几只。 代码如下 #include<stdio.h> int main() { int a = 0;
初学
者常见异常丨传说中的NPE空指针异常怎么
解决
?!
1. 前言最近有好几个
初学
java的小伙伴,甚至是学习到JavaWeb、框架阶段的小伙伴,跑来问健哥,该如何
解决
Java中的NullPointerException空指针异常。因为NPE是
初学
者常见的典型异常,所以健哥在这里专门写一篇文章,来手把手地教大家分析
解决
这个经典异常
问题
。2. 异常现象首先我们来看看这个既简单,又经常出现的空指针异常NullPointerException,下面这段代码运行后就会抛出NPE空指针异常。 运行结果:3. 异常原因那么上述代码为什么会产生NPE
问题
呢?下面健哥就来给
讲谈
初学
者如何学好C语言(一)
前言: 关于这个C语言系列,我将讲谈新手最关心的一系列
问题
。 对象:C语言零基础;有经验但是不够熟练的同学。(只要你有一颗热爱学习的心,这个系列一定能收获到你意想不到的知识) 大家主要关心
问题
如下: 1.编译器五花八门,到底用哪种好? 2.什么是C语言 3.大家最关心的
问题
:如何学好C语言? 4.详细深入的去讲解新手容易忽略的有关C语言的小细节; 5.如何规划自己学习编程,不限于C语言; 这篇文章我将着重讲解第
一个
问题
以及初谈第2个
问题
。 开始之前容许笔者做
一个
自我介绍,笔者目前身据
初学
者如何
解决
SQL Server “试用期已过” 的
问题
初学
者如何
解决
SQL Server 试用期已过 的
问题
在
解决
问题
之前,我们需要先对数据库有个大致的了解。 PS:这篇文章仅对 数据库
初学
者 有参考意义,各位数据库的大佬就不用来看我写的拙略的文章了,如果有写的不完善的地方,也可以私信告诉我哦~ 下面两个都属于关系型数据库 SQL service数据库 MySQL数据库 由于在之前的学期学习了SQL Server,但是由于当时是处在180天的试用期内,所以不受影响。但是这个学期,打开SQL Server Management Studio,被告知已超过试
机器学习能
解决
哪些
问题
?
作者网易云课堂机器学习是什么?套用一下大神们对机器学习的定义,机器学习研究的是计算机怎样模拟人类的学习行为,以获取新的知识或技能,并重新组织已有的知识结构使之不断改善自...
Delphi
5,388
社区成员
262,730
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章