Recorrer objetos dentro de un TFMXObject

[[Al González]]

Le di un tweet desde que lo vi, Jhonny. Gracias por el aporte.

Si tuviera yo que emplear el mismo código, copio aquí cómo lo escribiría (no lo he compilado, aclaro):

Código Delphi [-]
TabControl1.EnumObjects (
  Function (AObj :TFMXObject) :TEnumProcResult
  Begin
    If AObj Is TLabel Then
    Begin
      FMX.Dialogs.ShowMessage ('Encontré la etiqueta, ¡victoria!');
      Result := TEnumProcResult.Stop;
    End
    Else
      Result := TEnumProcResult.Continue;
  End);

Aunque tomando algo de las capacidades de la próxima y prorrogadamente reconstruida GH Freebrary, probablemente escribiría algo así:

Código Delphi [-]
TabControl1.EnumObjects (
  Function (AObj :TFMXObject) :TEnumProcResult
  Begin
    If Result.ghStopWhen (AObj Is TLabel) Then
      FMX.Dialogs.ShowMessage ('Encontré la etiqueta, ¡victoria!');
  End);

Una variante más nativa y estándar, en caso de que yo trabajara en Embarcadero/Idera y me aceptaran añadir estas cosas, podría ser:

Código Delphi [-]
TabControl1.EnumObjects(
  function (AObject: TFMXObject): TEnumProcResult
  begin
    if Result.StopWhen(AObject is TLabel) then
      FMX.Dialogs.ShowMessage('I found the label, bingo!');
  end);

Saludos.

Al González.