Mehrfaches Align per laufzeit

[Prototypjack]

Guten Abend!
Ich suche derzeit eine Möglichkeit ein Control (In meinem Falle eine TPaintbox) ganz nach links zu bekommen(oder auch nach Oben, Unten oder Rechts).
Ein Problem tritt logischerweise dann auf, wenn dort bereits ein Object verankert ist (per Align), denn sobald dieser Fall eintritt habe ich scheinbar (Ich habe bereits überall gesucht) keine Möglichkeit mehr mein Objekt weiter nach Links zu setzen, sprich vor das bereits fixierte.

Ihr seid meine letzte Hoffnung,
Ich bitte um Hilfe.

Gruß,
Max

[HiWieGehts]

Hallo,
das geht.
Align vom ersten Objekt wegnehmen, dem 2. Align zuweisen und dann dem ersten wieder zuweisen:
Objekt1.Align := alNone;
Objekt2.Align := alLeft;
Objekt1.Align := alRight;
Objekt1.Align := alLeft;
wobei ich mir bei der 3. Zeile nicht sicher bin, ob diese erforderlich ist.
HiWieGehts

[Prototypjack]

Moin!
Oh verdammt! Ich hatte vergessen das ich praktisch ein Form vorgesetzt bekomme und die Anzahl der per Align fixierten Objekte nicht kenne.

Gruß,
Max

[Hawkeye219]

Hallo Max,

auch wenn ein Control über die Eigenschaft Align fixiert ist, kannst du seine Position nachträglich beeinflussen:

Delphi-Quellcode:

NewControl.Align := alLeft;
NewControl.Left := -1;

NewControl.Align := alRight;
NewControl.Left := MaxInt;

NewControl.Align := alTop;
NewControl.Top := -1;

NewControl.Align := alBottom;
NewControl.Top := MaxInt;

Gruß Hawkeye

[Prototypjack]

Guten Abend!

Hehe, da sitzt man stundenlang engstirnig vor einem Problem und sieht den Wald vor lauter Bäumen nicht!
Simple Lösung aber darauf wäre ich wohl nie gekommen.

Danke sehr :D

Gruß,
Max