Delphi: How to programmatically adjust visual ordering of components with align = alTop

亡梦爱人 提交于 2019-11-30 09:10:15

You can easily move a top-aligned panel to the top by setting its Top property to 0. Do this in reverse requested order (bottom panel first) and you are done.

Move them the same way you'd move them at design time with the mouse: Set the current panel's Top property to one less than the Top property of the panel you want to be below the current panel. The VCL will take care of the rest.

If you have to move several panels, start with BeginDeferWindowPos. Adjust all the panels to whatever coordinates you want with DeferWindowPos, and then make them all move at once with EndDeferWindowPos.

I suggest building a framework where you dynamically remove/add the forms from/to their parent control. In general, the order of creation/addition is the visual order, but from your question I understand you want the order to change during the application lifetime, so just changing the original creation order won't be enough.

In order to change the order, try:

  1. Hide the panels
  2. Remove the panels from their parent control
  3. Add the panels to their parent control in the new order you wish
  4. Show the panels

How about trying a top-aligned TGridPanel with one column and n rows instead --- re-ordering top-aligned panels is a bit of a pain, really.

(Note: TGridPanel is available in Delphi 2007 and up, if I remember correctly).

If you change the top of the panel the order of visually panel change.

Try this (all the panels aligned altop and with the same Height):

PANEL0
PANEL1
PANEL2
PANEL3
PANEL4

At OnClick event of all panels do this:

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

If you click on a panel it moves up one position.

That's the idea. Change the Top X pixels.
At the same, if you do this:

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

The panel up 2 positions.

ADDED: If you use Drag&Drop, this events return the position (X and Y); With the original position and end position you can calculate the wew top for asign to the panel.

Excuse form my poor english. regards

Hristo Markow

I've used the following code:

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;

according my wish Panel_1 Panel_2 Panel_3 Panel_4

I know its an old post but basically helped me - the idea of setting the top property to zero. I cant use the idea of programatically set the position cause this is up to the app user - it can chose to display some charts on the app and then, all the panels (parent) of the the teecharts are align altop. I set their top property to 0 on the inverse order and then just set visible true or false according to user input...

Thanks.

Gaive Knopf
panel3.Visible  := True;
panel3.Top      := 0;

panel2.Visible  := True;
panel2.Top      := 0;

panel1.Visible  := True;
panel1.Top      := 0;

The last will be the first.

易学教程内所有资源均来自网络或用户发布的内容,如有违反法律规定的内容欢迎反馈
该文章没有解决你所遇到的问题?点击提问,说说你的问题,让更多的人一起探讨吧!