Delphi：如何使用align = alTop以编程方式调整组件的视觉顺序

Question

我有一个包含多个面板的表单，每个面板都有 Align=alTop，因此它们可以很好地从表单顶部向下堆叠。

但是，我想动态更改这些面板的外观顺序 - 即上下移动它们。 这样做的最佳方法是什么？

Answer 1

尝试使用一列和 n 行的顶部对齐 TGridPanel 怎么样 --- 重新排序顶部对齐面板确实有点痛苦。

（注意：TGridPanel 在 Delphi 2007 及更高版本中可用，如果我没记错的话）。

Answer 2

如果更改面板的顶部，面板的视觉顺序会发生变化。

试试这个（所有面板altop对齐并且具有相同的高度）：

PANEL0
面板1
面板2
面板3
PANEL4

在所有面板的OnClick事件中执行以下操作：

 TPanel(Sender).Top := TPanel(Sender).Top - TPanel(Sender).Height - 2;

如果单击某个面板，它会向上移动一个位置。

就是这个想法。 更改前 X 个像素。
同时，如果执行以下操作：

   TPanel(Sender).Top := TPanel(Sender).Top - (TPanel(Sender).Height * 2)- 2; 

面板上升 2 个位置。

添加：如果您使用拖放，此事件将返回位置（X 和 Y）； 通过原始位置和结束位置，您可以计算用于分配给面板的线顶。

请原谅我糟糕的英语。
问候

Answer 3

我使用了以下代码：

procedure Show_Hide (Flag_Show : boolean);
begin
  if Flag_Show then
  begin
    with Panel_1 do begin Align := alTop; Visible := true; end;
    with Panel_2 do begin Align := alTop; Visible := true; end;
    with Panel_3 do begin Align := alTop; Visible := true; end;
    with Panel_4 do begin Align := alTop; Visible := true; end;
  end else
  begin
    with Panel_1 do begin Visible := false; Align := alNone; end;
    with Panel_2 do begin Visible := false; Align := alNone; end;
    with Panel_3 do begin Visible := false; Align := alNone; end;
    with Panel_4 do begin Visible := false; Align := alNone; end;
  end;
end;

根据我的意愿
面板_1
面板_2
面板_3
面板_4

Answer 4

我知道这是一篇旧文章，但基本上对我有帮助 - 将顶部属性设置为零的想法。
我无法使用以编程方式设置位置的想法，因为这取决于应用程序用户 - 它可以选择在应用程序上显示一些图表，然后，teecharts 的所有面板（父级）都在顶部对齐。
我按照相反的顺序将它们的 top 属性设置为 0，然后根据用户输入设置可见的 true 或 false...

谢谢。

Answer 5

通过将顶部对齐面板的 Top 属性设置为 0，您可以轻松地将顶部对齐面板移动到顶部。 按照相反的顺序执行此操作（首先是底部面板），您就完成了。

Answer 6

移动它们的方式与设计时使用鼠标移动它们的方式相同：将当前面板的 Top 属性设置为比您想要移动的面板的 Top 属性小 1位于当前面板下方。 VCL 将处理剩下的事情。

如果您必须移动多个面板，请从 BeginDeferWindowPos< 开始/a>. 使用 DeferWindowPos 将所有面板调整到您想要的任何坐标，然后使用 EndDeferWindowPos 让它们同时移动。

Answer 7

我建议构建一个框架，您可以在其中动态地从其父控件中删除表单或向其父控件添加表单。 一般来说，创建/添加的顺序是视觉顺序，但从您的问题来看，我了解您希望在应用程序生命周期内更改顺序，因此仅更改原始创建顺序是不够的。

要更改顺序，请尝试：

1. 隐藏面板
2. 从其父控件中删除面板 将
3. 面板按照您希望的新顺序添加到其父控件
4. 显示面板