Hallo zusammen,
Die Funktion ist, ich erstelle beim starten des Programms eine Liste von Expander-Elementen mit einer Breite von 300. Bei Verkleinerung des Formulars soll ab einer bestimmten Breite alle Expander-Elemente auf 125 verkleinert werden und ein anderes StyleLookup zugewiesen werden.
Das war schon klar.
Aus diesem Grund habe ich ein ExpanderArray angelegt so dass ich über eine Schleife alle Expander-Elemente verkleinern kann.
In der FormResize kannst Du die Variable "test" wegschmeisen und per Schleife die Funktion .klein oder .gross direkt aufrufen.
Delphi-Quellcode:
for zaehler := 0 to Length(ExpanderArray) - 1 do
begin
ExpanderArray[zaehler].klein(ExpanderArray[zaehler])
end;
Wenn Du noch den Sender-Parameter in der .klein- und .gross- Procedure entfernst, dann reicht >>ExpanderArray[zaehler].klein;<< als Zeile in der Schleife