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;