Dann kannst du versuchen, mit dem <Tag> zu arbeiten (kann im Objekt-Inspektor gesetzt weden). Dies ist ein auf <TObject> definierter Integer, der von Borland nicht gebraucht wird - er steht also in jeder (auch jeder selbst definierten) Klasse zur Verfügung.
Wenn du nun die Buttons, die du ändern willst, z.B. mit einem Tag > 0 markierst, kannst du diese zusätzliche Abfrage einbauen, bevor du <Align> setzt.
Quelltext
1: 2: 3: 4: 5: 6: 7: 8: 9:
| var obControl : TControl; begin ... if obControl.Tag > 0 then begin obControl.Align := alBottom; end; ... end; |
Gruss - Jörg