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

Question

I've got a form with a number of panels, each of which has Align=alTop, so they stack down nicely from the top of the form.

However, I want to dynamically change the appearance order of these panels - i.e, move them up and down. What's the best way of doing this?

Answer 1

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.

Answer 2

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.

Answer 3

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

Answer 4

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).

Answer 5

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

Answer 6

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