Delphi按下回车键使各控件依次获得焦点

最新推荐文章于 2020-07-13 17:25:31 发布
原创 最新推荐文章于 2020-07-13 17:25:31 发布 · 976 阅读 · 0 ·
CC 4.0 BY-SA版权
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。

本文介绍了一个简单的键盘快捷方式处理程序，用于在窗体上切换焦点到下一个控件。当按下回车键时，程序会将焦点移动到当前活动控件之后的下一个控件。
procedure TForm1.FormShortCut(var Msg: TWMKey; var Handled: Boolean);
var
    i : Integer;
begin
    if Msg.CharCode = VK_RETURN then
    begin
        i := ActiveControl.ComponentIndex + 1;
        if (i = ComponentCount) then
            i := 0;
        TWinControl(Controls[i]).SetFocus;
    end;
    Handled := True;
end;
 
 
代码没有考虑含有Parent的情况，根据自己需要改吧
delphi 组件自动获取焦点的demo
05-15
delphi做的一个demo 组件之前自动转换焦点！ 自动获取光标
Delphi消除在TEdit控件中按下回车键时的声音.rar
07-10
本教程将详细讲解如何消除在Delphi的TEdit控件中按下回车键时产生的声音。 首先，我们需要了解Delphi中的键盘事件。在Delphi中，我们可以使用OnKeyDown和OnKeyPress事件来处理键盘输入。OnKeyDown事件在键盘按键被...
回车移动焦点 delphi
qq_18932003的博客
11-24 337
在当前焦点按下回车自动移动到下移控件。 procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if Key = 13 then begin keybd_event(VK_TAB,0,KEYEVENTF_EXTENDEDKEY,0); //按下 k...
Delphi回车键切换焦点
wozengcong的专栏
12-29 2851
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls; type TForm1 = class(TForm) Panel1: TPanel; Label1: T
按回车键后跳到下一控件
ilovejsj001的专栏
03-18 1036
  http://www.w3.org/TR/html4/strict.dtd">     按回车键后跳到下一控件        var elemType;//选中控件类型   var elemObj; //选中控件对象   function enterKey() {    //获取页面所有控件    var elems = document.forms[0].elements;       
Delphi演示失去焦点的Edit控件.rar
07-10
Delphi演示失去焦点的Edit控件，文字框在失去焦点后应该怎么办，Delphi7源码下载。 　procedure Register;//在IDE中进行注册 　begin 　RegisterComponents('Samples',[Tmyedit]); 　//注册到Samples页中，控件名是...
delphi12 控件之 Delphi 12.;2（编写屏幕上面打印字）.rar
10-20
2”，这表明文件可能是一个教程、示例代码或是相关文档，专门用于教授或解释如何在使用Delphi 12.2版本的开发环境下，在屏幕上的指定位置打印文字。这可能是初学者或开发人员在学习如何使用Delphi进行GUI开发时所...
Delphi回车键代替Tab 键
08-16
- **应用场景**：当检测到用户按下了回车键时，我们可以通过调用 `Perform` 函数将焦点移动到下一个控件上。 ### 三、实现代码详解 以下代码展示了如何在Delphi中实现使用回车键代替Tab键的功能： ```delphi unit...
精选资源
Delphi 12 控件之TMS20250301.7z
最新发布
03-01
但基于标题中提供的信息，我们可以推测这可能是一个关于Delphi 12软件开发环境下使用的TMS20250301控件包的相关内容。Delphi是一种广泛使用的集成开发环境（IDE），它支持快速开发Windows、macOS、iOS和Android等...
回车键时按钮获得焦点
yanhuaju9的专栏
06-29 755
Private Sub txtPassword_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then                          SendKeys "{Tab}"            End IfEnd Sub 
Flex按回车键焦点移动到下一个组件
人生就像旅程
09-12 1115
要想使Flex按回车键焦点移动到下一个组件，只要在页面初始化的时候加上以下方法就行   /**页面初始化完毕后执行的方法*/ protected function windowedapplication1_creationCompleteHandler(event:FlexEvent):void { this.addEventListener(KeyboardEven
js按回车实现tab效果（下一个控件获取焦点）
MrLee的博客
07-13 1762
方式一： 判断 event.keyCode==13 回车行为，下一个控件聚焦。 <!doctype html> <html lang="en"> <head> <meta charset="UTF-8"> <meta name="Generator" content="EditPlus®"> <meta name="Author" content=""> <meta name="Keywords" conte
SetFocus()的用法
热门推荐
工作隨記
11-07 1万+
做一個視窗程式，在OnInitDialog裡下SetFocus()這個函數，但是沒有反應，一直無法在要設定focus的元件上。上網找了一下，得到的答案是：   在OnInitDialog下SetFocus()，有可能因為視窗還沒有出現，而不動作。最好是把SetFocus()放在OnShowWindow()裡去執行。實作了一下，真的可行。
Delphi常用属性
danfeng906的专栏
01-29 1774
常用【属性】 　Action：该属性是与组件关联的行为，允许应用程序集中响应用户命令 　Anchors：与组件连接的窗体的位置点 　Align：确定组件的对齐方式 　AutoSize：确定组件是否自动调整其大小 　BiDiMode：（所有组件）  为从右向左写的语言提供支持 　BoundsRect：定义组件边框矩形(只适用于运行时） 　Borderwidth：（窗口化组件）边框的宽度
FormShortCut MainForm 和 二级FORM
dianmengkui1387的博客
01-30 176
发现，主FORM 定义的快捷键，在二级FORM里也有效。 反过来，就无效。 这样的话，就要考虑 快捷键的冲突问题 了，本来以为不同的FORM 是独立的。 http://codeverge.com/embarcadero.delphi.vcl.using/shortcuts-of-the-main-form-acces/1076501 John Sch...
『delphi』Enter键移动焦点的效果
luoye&guoguo
12-16 1421
procedure Tlogin.Edit1KeyDown(Sender: TObject; var Key: Word;  Shift: TShiftState);begin  if key=vk_return then    FindNextControl(ActiveControl,true,false,false).SetFocus;end;end.其他的的KeyDown选中Edit1
Focus问题终结帖，setFocus, focusInEvent,focusOutEvent
alex201030273437的专栏
11-17 5221
focus问题曾经困扰了我一些时间。过程中也朋到了很多麻烦。现在总结一下，希望能够解决所有关于focus方面的问题。     即使setFocus了也不一定有效果。  帮助文档中说的很清楚，你不能在你的部件还不可见的时候setFocus，这样不行。解决这个问题的办法就是把setFocus()的操作放到我们这个部件的showEvent()里面去做。而我们一般可能喜欢放到构造函数最后去setFo
delphi 按回车选中下一个控件
hansoy的专栏
04-09 4261
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char); begin if Key = #13 then begin Key := #0; SelectNext(ActiveControl, True, True); end; end;
评论
成就一亿技术人!
拼手气红包6.0元
还能输入1000个字符
 
红包 添加红包
表情包 插入表情
表情包 代码片
 条评论被折叠 查看
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值