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.