Recorrer objetos dentro de un TFMXObject

[Ñuño Martínez]

Buen truco. Estaría bien que Lazarus cambiara en esa dirección también. Ahora mismo sigue la senda de VCL.

Por cierto, un pequeño cambio:

Código Delphi [-]
TabControl1.EnumObjects(
      function (vObjeto: TFMXObject): TEnumProcResult
      begin
        if (vObjeto is TLabel) then
        begin
          ShowMessage('Encontré el Label, ¡victoria!');
          EXIT (TEnumProcResult.Stop)
        end;
        Result := TEnumProcResult.Continue
      end
    );

Parece una tontería, pero será ligeramente más rápido ya que se ahorra una asignación si encuentra un TLabel.

Si se sabe que los TLabel son escasos, se puede optimizar incluso un poco más:

Código Delphi [-]
TabControl1.EnumObjects(
      function (vObjeto: TFMXObject): TEnumProcResult
      begin
        IF NOT (vObjeto IS TLabel) THEN EXIT (TEnumProcResult.Continue);
        ShowMessage('Encontré el Label, ¡victoria!');
        RESULT := TEnumProcResult.Stop
      end
    );

Hoy tengo el día programadoril...