如何控制Components数组中的项目顺序？

Question

我在Delphi中开发了一个带有TEdit组件的小应用程序.
我使用此函数来验证组件字段是否为空.

function TF_config.Validatefields:boolean;
var 
  i : integer;
begin
 for i := 0 to ComponentCount - 1 do
 begin
   if (Components[i]is TEdit) then
   begin
      if ((TEdit(Components[i]).Text) ='') then
      begin
        MessageDlg('Enter data in all the fields',mtWarning,[MBOK],0);
        TEdit(Components[i]).SetFocus;
        result := false;
        exit;
     end;             
   end;  //end for TEdit
 end;    //end component count 
 result := true;
end;

现在我必须再添加一个组件

如果有效,函数检查数据的顺序是 ID-> Name-> Address-> Phone-> Age.但我希望它是ID-> Name-> Address-> Age-> Phone.
我试图解决它删除手机编辑组件之后又加入之后将其添加年龄使用编辑component.Or 手机编辑组件年龄和增加新的编辑组件电话.这对于少数组件来说更容易,但是当拥有许多组件时变得乏味.所以我想知道我们是否可以以适合我们的方式安排组件.这可能吗？

Answer 1

您可以使用TabOrder属性进行排序,以及FindNextControl在控件之间移动的方法.