Solucionado para Delphi 11 desarrollando para Android.
Agregamos un tipo: TToastLength = (LongToast, ShortToast); y un procedimiento como este a las unidades
Código Delphi
[-]{$IFDEF ANDROID}
uses
Androidapi.JNI.Widget, Androidapi.Helpers, FMX.Helpers.Android;
procedure Toast(const Msg: string; duration: TToastLength);
var
ToastLength: Integer;
begin
if duration = ShortToast then
ToastLength := TJToast.JavaClass.LENGTH_SHORT
else
ToastLength := TJToast.JavaClass.LENGTH_LONG;
CallInUiThread (
procedure
begin
TJToast.JavaClass.makeText (SharedActivityContext,
StrToJCharSequence(Msg), ToastLength).show
end
);
end;
{$ENDIF}
La llamada es de lo más simple...
Código Delphi
[-]Toast('Mensaje', LongToast);
Saludos