Delphi - 为什么这个标签顺序不能正常工作？

Question

我正在动态创建几个面板，其中包含TEdit。我从下到上创建它们，所以我需要反转 TabOrder 并且它们是在以其他形式出现的框架内创建的。但是，当我尝试反转它时，我得到了错误的顺序（0-4-1-3-2），如果我不这样做，我得到了创建顺序（4-3-2-1-0），正如预期的那样.

这是主窗体的代码：

type
  TForm1 = class(TForm)
    Frame: TFrame1;
    procedure FormCreate(Sender: TObject);
  end;
var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Frame := TFrame1.Create(Self);
  Frame.Parent := Self;
end;

这里是框架和面板：

type
  TFrame1 = class(TFrame)
  public
    constructor Create(aOwner: TComponent);
  end;

  TMyPanel = class(TPanel)
  public
    FEdit1: TEdit;
    constructor Create(aOwner: Tcomponent; str: string);
  end;

implementation

{$R *.dfm}

constructor TFrame1.Create(aOwner: TComponent);
var
 Panel: TMyPanel;
 I: integer;
begin
  inherited Create(aOwner);
  for I := 4 downto 0 do
  begin
    with TMyPanel.Create(Self, IntToStr(I)) do begin
      Align := alTop;
      Parent := Self;
      Top := 10 * I;
      TabOrder := I;
    end;
  end;
end;

constructor TMyPanel.Create(aOwner: Tcomponent; str: string);
begin
  inherited Create(aOwner);
  Caption := 'order ' + str;
  FEdit1 := TEdit.Create(Self);
  FEdit1.Align := alRight;
  FEdit1.Parent := Self;
  FEdit1.SetSubComponent(True);
end;

Answer 1

您不能将跳位顺序设置为大于可以设置跳位顺序的控件的计数。

在 for 循环的第一次迭代中，您将创建框架中唯一的控件（第一个面板），然后将其 Tab 键顺序设置为 4。Tab 键顺序实际上设置为 0。您需要更改你的算法。