Delphi按下回车键使各控件依次获得焦点
来源:互联网 发布:手机淘宝店铺申请流程 编辑:程序博客网 时间:2024/05/19 05:03
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;
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按下回车键使各控件依次获得焦点
- Delphi按下回车键使各控件依次获得焦点
- 按下回车键后Combox控件焦点转移到下一控件
- Delphi回车键切换焦点
- Delphi中当前获得焦点的控件
- 回车键时按钮获得焦点
- 按回车键切换焦点
- 孙鑫VC++深入详解:Lesson7 Part4 ---对话框上各个控件之间循环接受回车键获得焦点
- 使DataGridView控件输入回车键后单元格焦点向右移
- 按回车键在不同的控件焦点间移动
- lazarus:按回车键焦点自动跳至下一个控件
- 按回车键 输入框光标依次移动
- jquery 实现上下左右回车键按下 移动文本框焦点
- 用户控件获得焦点
- 控件获得焦点
- 按回车键,焦点转到下一个
- asp.net页面获得回车键焦点的问题
- c# datagridview回车键后获得右侧单元格焦点
- 数据库分库分表(sharding)系列
- iOS从info.plist 获取项目的名称及版本号
- 【COCOS2DX-游戏开发之二】 模态对话框
- VC中TRACE用法
- VC2010从空项目开始搭建MFC程序时的注意事项
- Delphi按下回车键使各控件依次获得焦点
- 减低消息量 公司wiki用
- APPYING独家:《复仇的小猪》的运营成长之路
- Ticket Servers: Distributed Unique Primary Keys on the Cheap
- Linux环境进程间通信(四):信号灯
- Magento: Join, filter, select and sort attributes, fields and tables
- 【Cocos2d-x 控件篇001】我最爱的九妹和按钮事件
- Qt 经典出错信息之”Basic XLib functionality test failed!”(Z..z..)
- CodeWarrior相关概述