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...