delphi 动态布局,align = altop,如何保持顺序不变?
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值 可以改变 控件顺序位置
好不容易活着