En Firemonkey, recorrer los objetos que hay dentro de otro es muy sencillo, basta con hacer uso del método
EnumObjects que pertenece a la clase TFMXObject... por ejemplo, si queremos saber si existe un TLabel dentro un TTabControl podemos hacerlo de la siguiente manera:
Código Delphi
[-]TabControl1.EnumObjects(
function (vObjeto: TFMXObject): TEnumProcResult
begin
Result := TEnumProcResult.Continue;
if (vObjeto is TLabel) then
begin
ShowMessage('Encontré el Label, ¡victoria!');
Result := TEnumProcResult.Stop;
end;
end
);
En
http://purodelphi.com/2016/03/23/enu...un-tfmxobject/ he creado un artículo con una explicación un poco más extensa de lo que aquí menciono.