Programmieren - alles kontrollieren 4.935 Themen, 20.621 Beiträge

Wie kann der folgende Programmcode ergänzt werden, sodaß
Visuelle und Nichtvisuelle Komponenten selektiert sind?

procedure TForm1.Button1Click(Sender: TObject);
var i : integer;
ClNM : string;
LS : TStringList;
begin
LS := TStringList.Create;
for i := 0 to Self.ComponentCount - 1 do
begin
ClNM := self.Components(.i.).ClassName;
LS.Add(ObNM);
end;
LS.free;
end;

besten Dank ....