DockStyle Problem

[MaBuSE]

Zitat von Udo:

Mache ich bei der Erzeugung was falsch?

Im Prinzip nein.

Die Hilfe schreibt dazu:

Zitat von Borland Online Hilfe:

Wenn ein Steuerelement am Rand seines Containers angedockt ist, wird es bei jeder Änderung der Containergröße wieder bündig an diesem Rand ausgerichtet. Wenn an einem Rand mehrere Steuerelemente angedockt sind, werden diese Steuerelemente entsprechend ihrer z-Reihenfolge nebeneinander angezeigt, wobei Folgendes gilt: je höher ein Steuerelement in der z-Reihenfolge ist, desto weiter entfernt vom Containerrand ist es positioniert.

Diese z-Reihenfolge ist also schuld daran

Das ist nicht die Erstellungsreihenfolge, sondern die Reihenfolge in der es dem Container zugefügt wurde.

Das lässt sich auch einfach im Designer nachvollziehen:

Panel auf WinForm
-> Objektinspektor: Panel1.Dock = Left
-> weiteres Panel auf WinForm
-> Objektinspektor: Panel2.Dock = Left

-> nun versuchen die Reihenfolge zu tauschen (Maus oder Left)
-> lässt sich nicht drehen! Das 1. Panel ist immer Links!!!

Das entspricht auch der Hilfe und Deinem Problem

Lösungsvorschlag:
PanelX ist links, wenn Panely hinzugefügt würde wurde PanelX rechts neben PanelY stehen.
Wird PanelX aus der ControlCollection entfernt, PanelY hinzugefügt und danach PanelX wieder hinzugefügt,
so steht das PanelX links und PanelY rechts.

Delphi-Quellcode:

if Self.Controls.Contains(PanelX) then
begin
  Self.Controls.Remove(PanelX);
  Self.Controls.Add(PanelY);
  Self.Controls.Add(PanelX);
end;

Ich hoffe das hilft weiter

BTW:

Ein paar Verbesserungsvorschläge hätte ich noch zu dem Quellcode:

Delphi-Quellcode:

procedure TWinFormFR.MenuItemNew_Click(sender: System.Object; e: System.EventArgs);
var FR: Panel; Lab: System.Windows.Forms.Label;
begin
  FR:= Panel.Create;
  // FR.Parent:= Self;   
  // Das wird über die Zeile
  // Self.Controls.Add(FR); // ??
  // am Ende der Proc gemacht

{
  // Unwichtig, da ja eh am Rand ausgerichtet wird.
  //pY und pX = Mausposition aus MouseDown
  if pY + FR.Height > Self.ClientSize.Height then
    FR.Top:= Self.ClientSize.Height - FR.Height
  else FR.Top:= pY;
  if pX + FR.Width > Self.ClientSize.Width then
    FR.Left:= Self.ClientSize.Width - FR.Width
  else FR.Left:= pX;
}

  ...

  // Lab.Parent:= FR;
  FR.Controls.Add(Lab);

  Self.Controls.Add(FR); 
end;

Mein Code zu dem Beisp. sieht so aus:
(Es besteht aber noch das gleiche Problem!)

Delphi-Quellcode:

procedure TWinForm.Button2_Click(sender: System.Object; e: System.EventArgs);
var
  myPanel: System.Windows.Forms.Panel;
  myLabel: System.Windows.Forms.Label;
begin
  inc(Self.Count);
  myPanel := System.Windows.Forms.Panel.Create;
  myLabel := System.Windows.Forms.Label.Create;
  myPanel.SuspendLayout;
  myPanel.Width := 25;
  myPanel.Dock := System.Windows.Forms.DockStyle.Left;
  myPanel.Name := 'myPanel'+Self.Count.ToString;;
  myPanel.Controls.Add(myLabel);
  myLabel.Location := System.Drawing.Point.Create(8, 8);
  myLabel.Name := 'myLabel'+Self.Count.ToString;;
  myLabel.Size := System.Drawing.Size.Create(24, 16);
  myLabel.Text := Self.Count.ToString;;
  Self.Controls.Add(myPanel);
  myPanel.ResumeLayout(False);
end;