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

页面导航:首页 > 软件编程 > Delphi > Delphi按下回车键使各控件依次获得焦点

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

来源: 作者: 时间:2016-01-18 15:41 【

procedure TForm1.FormShortCut(var Msg: TWMKey; var Handled: Boolean);var i : Integer;begin if Msg.CharCode = VK_RETURN then begin i := ActiveControl.ComponentIndex +...
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的情况,根据自己需要改吧
Tags:

文章评论

最 近 更 新
热 点 排 行
Js与CSS工具
代码转换工具

<