Aufzählungsfunktion für Komponenten

[malabarista]

Gibt es eine Aufzählungsfunktion für Komponenten wie Buttons, Labels und Edits ?

Was ich vorhabe, ist Folgendes:
weil meine Software auf sehr verschiedenen grossen und kleinen Displays verwendet wird, möchte ich die Grössen einzelnen Komponenten (Buttons, Labels, Edits) sowie deren Schritgrösse per Software geeignet anpassen.
Dieser Teil funktioniert bereits gut.

Da wäre mir eine automatische Aufzählfunktion recht, die mir mitteilt: wieviele Komponenten des Typs Button gibt es in dem betreffenden Formular und wie heissen diese.

[Warf]

Warum nicht einfach anchors setzen und im onresize die Schrift Größe ändern?
Wenn nicht einfach

Code: Alles auswählen

for i:=0 to self.controlcount - 1 do
  Self.Controls[i].WasAuchImmer

Die controls und controlcount property hat jedes Container Control der LCL

[malabarista]

Ja, das funktioniert gut.

Dankeschön !

[malabarista]

Und wie funktioniert dies für Elemente bei einer Groupbox ?
Eine Groupbox ist ein Tcontrol, kein Tform.

[wp_xyz]

Code: Alles auswählen

procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
begin
  for i:=0 to Groupbox1.ControlCount-1 do
    Memo1.Lines.Add(TControl(Groupbox1.Controls[i]).Name);
end; 

[malabarista]

Klasse.
Danke.