forms - SendToBack 似乎在 Firemonkey 中不起作用？

Question

我正在使用包含大量控件的主窗体开发 Firemonkey 应用程序。我想创建更多控件并使用SendToBack. 由于某种原因，这不能按预期工作。控制没有被发送到后卫，他们停止了 1 个控制。

这是一个示例设置：

• 创建一个新的 TForm。
• 在其上放置 3 个按钮，彼此重叠（Button1、Button2、Button3）。
• 在运行时，调用Button3.SendToBack- 按钮返回，但仅返回 1 个位置。Button1 仍然是最后面。

检查 TForm 源代码显示SendToBack调用SendChildToBack，它将最后位置确定为：

function TCommonCustomForm.GetBackIndex: Integer;
begin
  Result := 1;
end;

不应该是0吗？

问题：

• 为什么 SendToBack 将控件发送到“最后一个”位置而不是最后？GetBackIndex 返回 1 是否有特殊原因？
• 如何将控件发送回去？鉴于我的表单有很多控件，并且发送所有但需要控件的东西BringToFront是不可取的。

标签： formsdelphifiremonkeyz-order

Answer 1

由于我正在创建自己的控件，

ctrl := TSomeControl.Create(aForm);
ctrl.Parent := aForm;
ctrl.SendToBack;

可以替换为：

ctrl := TSomeControl.Create(aForm);
aForm.InsertObject(0 {desired index}, ctrl);