Hallo zusammen,
alle haben sich wieder lieb
(Alles Männer und doch versteht man sich nicht...)
Wenn man keine eigenen Komponenten sucht (die man bei Erzeugen extra registrieren kann), geht´s z.B. auch so (das war sicher mit der Rekursion gemeint):
Delphi-Quellcode:
procedure AlleXyzSuchen;
procedure AlleXyzSuchen_(Comp:TComponent);
var I:Integer;
Temp:TComponent;
begin
with Comp do begin
for I:=0 to ComponentCount-1 do begin
Temp:=Components[I];
if (Temp is TXyz) then begin
(Temp as TXyz).MachWas;
end
else AlleXyzSuchen_(Temp);
// wenn auch in TXyz selbst gesucht werden soll, else entfernen
end;
end;
end;
begin
AlleXyzSuchen_(Application);
end;
Stahli