delphi tab Tedit

如何实现:在Tedit中按回车键后光标自动跳到下一个控件?谢谢

在该控件(如edit1)的onkeypress中加入如下代码:

If Key=#13 Then
edit2.SetFocus;

这样就可以把光标跳到下一个控件,key=#13时判断按下了回车键,
温馨提示:内容为网友见解,仅供参考
无其他回答

delphi tab Tedit
在该控件(如edit1)的onkeypress中加入如下代码:If Key=#13 Then edit2.SetFocus;这样就可以把光标跳到下一个控件,key=#13时判断按下了回车键,

delphi中的tedit类是什么??
在 delphi 中定义的类通常都是以 T 为首字母,用于标识当前所定义的是一个“类(类型、类别)”,这属于约定俗成,并非强制规定,即并不是类的定义就必须用 T 为首字母。类似的 delphi 中,还有诸如:用英文字母 I 来作为 接口(Interface) 类型首字母标识等等。TEdit 类定义了一个 windows 窗口...

Delphi2010正式版新增控件之TButtonedEdit
TButtonedEdit顾名思义,应该知道这是一个啥控件吧,就是Button+Edit或者说是Edit上加Button就是在原来的TEdit左边或者右边或者左右两边都显示一个TButton.这些Button必须是图形的呢。所以在这里要弄个TImageList控件里面存放显示图形按钮的图片资源。Delphi2010对png的支持非常好。所以在这里放上png格式的图...

delphi的edit字体颜色
1、打开DelphiIDE,打开你的编辑窗口。2、找到要修改字体颜色的TEdit组件,双击该组件,进入编辑状态。3、在ObjectInspector中,找到Font属性,并单击下拉箭头,展开其子属性。4、找到Color属性,单击右侧的颜色框,选择你想要的字体颜色。5、保存修改,并关闭编辑窗口。

DELPHI基础教程:剪贴板和动态数据交换(一)[1]
下面的语句把MaskEdit中选中的文本剪切到剪贴板 MaskEdit CutToClipboard;下面的语句把剪贴板中的文本粘贴到Memo的当前光标处 Memo PasteFromClipboard;利用剪贴板类也可以实现文本的传输 见( )中的介绍 剪贴板类 为方便剪贴板的操作 Delphi在Clipbrd库单元中定义了一个TClipboard类 并且预定义了一个变...

用Delphi实现不同数据库系统之间的数据转移
TEdit; Label : TLabel; Label : TLabel; edToTbl: TEdit; procedure btnOKClick(Sender: TObject); private { Private declarations } public { Public declarations } end;var frmConvertDB: TfrmConvertDB;implementation lishixinzhi\/Article\/program\/Delphi\/201311\/25079 ...

在delphi中常用的组件有哪一些啊?连接数据库的办法有那些?
一般用ado常用组件有:tlable,tedit,tcombox,tmemo,tbutton,tcheckbox,tradiobutoon,等连数据库的控件会鄙人面连接数据库时用到。最简单的办法是:1.在DELPHI中添加adoconnection 控件。连到你要修改的数据库,active属性改成true,解释数据库连接成功6.这时,你修改列表框中的值后,鼠标点另一行后,...

delphi 怎么在另外一个程序的EDIT里 输入字符呢?
然后继续通过FindWindow在父窗口中通过WindowsClass名找到你要控制的Edit,函数将会返回一个窗口句柄。然后你通过SendMessage(hwnd, WM_CHAR, ...)来向窗口发送字符。WM_CHAR的具体含义可以查阅MSDN或者Delphi 自带的Win32帮助。如果上述过程你觉得繁琐,可以通过Spy++直接获得Edit的句柄。但是这样的话程序没...

delphi opendialog如何打开文件并把路径显示在tedit?
\/\/ 文件过滤 OpenDialog1.Filter := 'txt文件|*.txt|所有文件|*.*';if OpenDialog1.Execute then begin \/\/ 得到打开的文件名 edit1.Text := OpenDialog1.FileName;end;

Delphi中如何改变窗体上各组件获得焦点的次序
修改各个组件的 TabOrder 属性(从0开始)。procedure TBaseF.Edit1KeyPress(Sender: TObject; var Key: Char);begin if Key=#13 then begin PostMessage(TEdit(Sender).Handle,WM_KEYDOWN,VK_TAB,0);end;end;

相似回答
大家正在搜