Delphi XE5 android toast

unit Android.JNI.Toast;



// Java bridge class imported by hand by Brian Long (http://blong.com)

interface



{$IFDEF ANDROID}



uses

  Androidapi.JNIBridge,

  Androidapi.JNI.JavaTypes,

  Androidapi.JNI.GraphicsContentViewText;

{$ENDIF}

{$IFDEF ANDROID}



type

  TToastLength = (LongToast, ShortToast);



  JToast = interface;



  JToastClass = interface(JObjectClass)

    ['{69E2D233-B9D3-4F3E-B882-474C8E1D50E9}']

    { Property methods }

    function _GetLENGTH_LONG: Integer; cdecl;

    function _GetLENGTH_SHORT: Integer; cdecl;

    { Methods }

    function init(context: JContext): JToast; cdecl; overload;

    function makeText(context: JContext; text: JCharSequence; duration: Integer)

      : JToast; cdecl;

    { Properties }

    property LENGTH_LONG: Integer read _GetLENGTH_LONG;

    property LENGTH_SHORT: Integer read _GetLENGTH_SHORT;

  end;



  [JavaSignature('android/widget/Toast')]

  JToast = interface(JObject)

    ['{FD81CC32-BFBC-4838-8893-9DD01DE47B00}']

    { Methods }

    procedure cancel; cdecl;

    function getDuration: Integer; cdecl;

    function getGravity: Integer; cdecl;

    function getHorizontalMargin: Single; cdecl;

    function getVerticalMargin: Single; cdecl;

    function getView: JView; cdecl;

    function getXOffset: Integer; cdecl;

    function getYOffset: Integer; cdecl;

    procedure setDuration(value: Integer); cdecl;

    procedure setGravity(gravity, xOffset, yOffset: Integer); cdecl;

    procedure setMargin(horizontalMargin, verticalMargin: Single); cdecl;

    procedure setText(s: JCharSequence); cdecl;

    procedure setView(view: JView); cdecl;

    procedure show; cdecl;

  end;



  TJToast = class(TJavaGenericImport<JToastClass, JToast>)

  end;



procedure Toast(const Msg: string; duration: TToastLength = ShortToast);



{$ENDIF}



implementation



{$IFDEF ANDROID}



uses

  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}



end.

使用方法：  短提示 Toast(s)    长时间提示：      Toast(s,LongToast);