Delphi按下回车键使各控件依次获得焦点
2012-12-20 12:15
309 查看
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的情况,根据自己需要改吧
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按下回车键使各控件依次获得焦点
- Flex中如何通过focusRoundedCorners样式在TextInput控件获得焦点后控制矩形对角圆滑与否的例子
- updatepannel 控件获得焦点的方法
- 控件不获得焦点
- HTML5:控件自动获得焦点
- JS Enter键跳转 控件获得焦点
- 控件获得焦点或被选中问题
- android中当EditText获得焦点时屏幕下面的控件移位
- [代码]Delphi实现窗体始终前台显示且获得焦点
- 使用js判断控件是否获得焦点
- 设置页面上的某个控件获得焦点(JavaScript)
- jQuery控制回车使表单内控件获得焦点
- #308 – 获得当前拥有键盘输入焦点的控件(Checking to See Which Control Has Keyboard Focus)
- js获得焦点控件&获得键盘事件
- WPF控件 在XP下获得焦点有虚线框
- WPF控件获得焦点时去除虚线框
- 当Panel等容器类控件 失去焦点再获得焦点后,滚动条复位的解决方式。
- 当控件无法获得焦点时
- delphi 获得memo,Richedit焦点所在行
- 用回车键实现MFC对话框中TAB键控件输入焦点在控件中跳转的效果(转)