Steuerelementefeld zur Entwicklungszeit

[DGL-luke]

Du redest von "array of TControl"? Würde ich so machen:

Delphi-Quellcode:

function CollectControls(OfClass: TClass; Parent: TWinControl): array of TControl;
var arraypos: Integer;
    
begin
  //Init
  Setlength(Result, Parent.ControlCount);
  arraypos := 0;

  //Controls durchsuchen, wenn richtige Klasse gefunden, array hinzufügen
  for i := 0 Parent.ControlCount -1 do
    if Parent.Controls[i] is OfClass then
    begin
      Result[arraypos] := Parent.Controls[i];
      Inc(arraypos);
    end;

  //array trimmen
  Setlength(Result,arraypos+1);
end;

"Sammelt" alle Controls, die in einem Container (Parent) liegen und von einer bestimmten Klasse (OfClass) sind. Sollte es.