Delphi 如何将光标移动到下一个 TEdit

在 Delphi 中，可以通过代码将光标移动到下一个 TEdit 控件。以下是实现该功能的步骤：

1. 确定当前 TEdit 控件，可以使用 ActiveControl 属性获取当前激活的控件。

var
  CurrentEdit: TEdit;
begin
  CurrentEdit := ActiveControl as TEdit;

2. 确定下一个 TEdit 控件，可以使用 TabOrder 属性获取下一个控件的顺序号。例如，下一个控件的顺序号为 CurrentEdit.TabOrder + 1。

var
  NextIndex: Integer;
  NextEdit: TEdit;
begin
  NextIndex := CurrentEdit.TabOrder + 1;
  NextEdit := FindNextControl(CurrentEdit, True, True, False) as TEdit;
  while (NextEdit <> nil) and (NextEdit.TabOrder <> NextIndex) do
  begin
    NextEdit := FindNextControl(NextEdit, True, True, False) as TEdit;
  end;

3. 将光标移动到下一个 TEdit 控件，可以使用 SetFocus 方法。

if NextEdit <> nil then
begin
  NextEdit.SetFocus;
end;

完整的代码如下：

var
  CurrentEdit: TEdit;
  NextIndex: Integer;
  NextEdit: TEdit;
begin
  CurrentEdit := ActiveControl as TEdit;
  NextIndex := CurrentEdit.TabOrder + 1;
  NextEdit := FindNextControl(CurrentEdit, True, True, False) as TEdit;
  while (NextEdit <> nil) and (NextEdit.TabOrder <> NextIndex) do
  begin
    NextEdit := FindNextControl(NextEdit, True, True, False) as TEdit;
  end;
  if NextEdit <> nil then
  begin
    NextEdit.SetFocus;
  end;
end;

值得注意的是，如果控件的顺序号不是连续的，或者存在其他类型的控件，例如 TLabel，那么就不能简单地使用 TabOrder 属性来确定下一个控件。此时，可以使用 FindNextControl 函数来查找下一个 TEdit 控件。该函数的参数含义分别为当前控件、是否循环、是否包括隐藏的控件、是否只查找指定类型的控件。