falsche Anordnung von TPanels

[Geri]

Noch eine Info dazu: Habe in das Beispiel von Uwe noch Cornerbuttons, wie bei mir eingefügt. Das funktioniert auch

Delphi-Quellcode:

procedure TForm1.ShowPanel(APanel: TPanel);
begin
  APanel.Height := APanel.TagFloat;
end;

procedure TForm1.SetLandScape(const Value: Boolean);
begin
  if FLandScape <> Value then
  begin
    FLandScape := Value;
    if Value then
    begin
       btn1.parent:=panel1;
       btn2.parent:=panel1;
       btn3.parent:=panel3;
       btn4.parent:=panel3;
       btn5.parent:=panel5;
       btn6.parent:=panel5;
    end
    else
    begin
       btn1.parent:=panel2;
       btn2.parent:=panel2;
       btn3.parent:=panel4;
       btn4.parent:=panel4;
       btn5.parent:=panel6;
       btn6.parent:=panel6;
    end;
    for var pnl in [Panel2, Panel4, Panel6] do
    begin
      if Value then
        HidePanel(pnl)
      else
        ShowPanel(pnl);
    end;
  end;
end;