delphi 动态布局，align = altop,如何保持顺序不变？

时间：2020-07-15 16:00:44 收藏：0 阅读：140

pnl_ep_p1.top := pnl_ep_p0.Top + pnl_ep_p0.Height;
pnl_ep_p2.top := pnl_ep_p0.Top + pnl_ep_p0.Height;
pnl_ep_p3.top := pnl_ep_p0.Top + pnl_ep_p0.Height;
pnl_ep_p1.Visible := false;
pnl_ep_p2.Visible := false;
pnl_ep_p3.Visible := false;
case rg_ep_escortnum.ItemIndex of
0:
begin
pnl_ep_p1.Visible := True;
pnl_ep_p2.Visible := False;
pnl_ep_p3.Visible := False;
end;
1:
begin
pnl_ep_p2.Visible := true;
pnl_ep_p1.Visible := True;
pnl_ep_p1.top := pnl_ep_p0.Top + pnl_ep_p0.Height;
pnl_ep_p2.top := pnl_ep_p1.Top + pnl_ep_p1.Height;
pnl_ep_p3.Visible := False;
end;
2:
begin
pnl_ep_p3.Visible := true;
pnl_ep_p2.Visible := true;
pnl_ep_p1.Visible := True;
pnl_ep_p1.top := pnl_ep_p0.Top + pnl_ep_p0.Height;
pnl_ep_p2.top := pnl_ep_p1.Top + pnl_ep_p1.Height;
pnl_ep_p3.top := pnl_ep_p2.Top + pnl_ep_p2.Height;

 

end;
else
begin
pnl_ep_p1.Visible := false;
pnl_ep_p2.Visible := false;
pnl_ep_p3.Visible := false;
end;
end;

　　虽然是altop，但根据top值可以改变控件顺序位置

原文：https://www.cnblogs.com/iwana/p/13305257.html