Android实例-消息框(XE8+小米2)

2023-07-27 07:59:04

方法一支持。

方法二与方法三都是三方单元，功能相同。

方法4与方法5报错，提示平台不支持。

第三方单元一：

 unit Android.JNI.Toast;

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

 interface

 {$IFDEF ANDROID}

 uses

  Androidapi.Helpers,

  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.

第三方单元二：

 {***************************************************************************}

 {                                                                           }

 {       功能：Android Toast提示消息框                                         }

 {       名称：Androidapi.JNI.Widget.Toast.pas                               }

 {       版本：1.0                                                           }

 {       环境：Win7 Sp1 64bit                                                }

 {       工具：Delphi XE7                                                    }

 {       日期：2014-11-23 19:45:35                                           }

 {       用法：TToast.Show(MessageText, isLongHint)                          }

 {--------------------------------------------------------------------------}

 {       原版作者：ying32                                                     }

 {       QQ：396506155                                                       }

 {       MSN ：ying_32@live.cn                                               }

 {       E-mail：yuanfen3287@vip.qq.com                                      }

 {       Website：http://blog.csdn.net/zyjying520/article/details/26158941   }

 {       版权所有 (C) 2013-2013 ying32.tk All Rights Reserved                 }

 {---------------------------------------------------------------------------}

 {       修改者：tht2009                                                      }

 {       改动：1、去掉注释掉的方法                                               }

 {            2、移动FMX.Helpers.Android引用声明到实现区                         }

 {            3、增加Androidapi.Helpers引用                                    }

 {                                                                           }

 {***************************************************************************}

 unit Androidapi.JNI.Widget.Toast;

 interface

 uses

   Androidapi.JNIBridge,

   Androidapi.JNI.JavaTypes,

   Androidapi.JNI.GraphicsContentViewText;

 type

   JToast = interface;//android.widget.Toast

   JToastClass = interface(JObjectClass)

   ['{CF455B66-683D-41F9-B386-0C49E42D4F92}']

     {Property Methods}

     function _GetLENGTH_LONG: Integer;

     function _GetLENGTH_SHORT : Integer;

     {Methods}

     // public Toast (Context context)

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

     // public static Toast makeText (Context context, int resId, int duration)

     function makeText(context: JContext; resId: Integer; duration: Integer): JToast;cdecl;overload;

     // public static Toast makeText (Context context, CharSequence text, int duration)

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

     {Properties}

     property LENGTH_LONG: Integer read _GetLENGTH_LONG;

     property LENGTH_SHORT: Integer read _GetLENGTH_SHORT;

   end;

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

   JToast = interface(JObject)

   ['{4A284317-000C-4048-8674-C475F505CFAF}']

     {Methods}

     // public void cancel ()

     procedure cancel;cdecl;

     // public int getDuration ()

     function getDuration: Integer; cdecl;

     // public int getGravity ()

     function getGravity: Integer; cdecl;

     // public float getHorizontalMargin ()

     function getHorizontalMargin: Single; cdecl;

     // public float getVerticalMargin ()

     function getVerticalMargin: Single; cdecl;

     // public View getView ()

     function getView: JView; cdecl;

     // public int getXOffset ()

     function getXOffset: Integer; cdecl;

     // public int getYOffset ()

     function getYOffset: Integer; cdecl;

     // public void setDuration (int duration)

     procedure setDuration(duration: Integer); cdecl;

     // public void setGravity (int gravity, int xOffset, int yOffset)

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

     // public void setMargin (float horizontalMargin, float verticalMargin)

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

     // public void setText (int resId)

     procedure setText(resId: Integer);cdecl;overload;

     // public void setText (CharSequence s)

     procedure setText(s: JCharSequence);cdecl;overload;

     // public void setView (View view)

     procedure setView(view: JView);cdecl;

     // public void show ()

     procedure show;cdecl;

   end;

   TJToast = class(TJavaGenericImport<JToastClass, JToast>) end;

   { TToast }

   TToast = class

   public

     class procedure Show(const text: string; LongHint: Boolean = False);

   end;

 implementation

 uses FMX.Helpers.Android, Androidapi.Helpers;

 { TToast }

 class procedure TToast.Show(const text: string; LongHint: Boolean);

 var

   LDuration: Integer;

 begin

    CallInUIThread

    (

      procedure

      begin

        case LongHint of

          True  : LDuration := TJToast.JavaClass.LENGTH_LONG;

          False : LDuration := TJToast.JavaClass.LENGTH_SHORT;

        end;

        TJToast.JavaClass.makeText(SharedActivityContext, StrToJCharSequence(text), LDuration).show;

      end

    );

 end;

 end.

应用单元：

 unit Unit1;

 interface

 uses

   System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,

   FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,

   FMX.Controls.Presentation, FMX.StdCtrls;

 type

   TForm1 = class(TForm)

     Button1: TButton;

     Button2: TButton;

     Button3: TButton;

     Button4: TButton;

     Button5: TButton;

     Button6: TButton;

     Button7: TButton;

     procedure Button1Click(Sender: TObject);

     procedure Button2Click(Sender: TObject);

     procedure Button3Click(Sender: TObject);

     procedure Button4Click(Sender: TObject);

     procedure Button5Click(Sender: TObject);

     procedure Button6Click(Sender: TObject);

     procedure Button7Click(Sender: TObject);

   private

     { Private declarations }

   public

     { Public declarations }

   end;

 var

   Form1: TForm1;

 implementation

 uses

   Android.JNI.Toast, Androidapi.JNI.Widget.Toast;

 {$R *.fmx}

 {$R *.NmXhdpiPh.fmx ANDROID}

 procedure TForm1.Button1Click(Sender: TObject);

 begin

   ShowMessage('与原来的一样哦！'); //消息提示方法一

 end;

 procedure TForm1.Button2Click(Sender: TObject);

 begin

   Toast('消息提示方法二', LongToast);

 end;

 procedure TForm1.Button3Click(Sender: TObject);

 begin

   Toast('消息提示方法二', ShortToast);

 end;

 procedure TForm1.Button4Click(Sender: TObject);

 begin

   TToast.Show('消息提示方法3。', False);

 end;

 procedure TForm1.Button5Click(Sender: TObject);

 begin

   TToast.Show('消息提示方法3。', True);

 end;

 procedure TForm1.Button6Click(Sender: TObject);

 begin

   if MessageDlg('你喜欢我吗？', TMsgDlgType.mtConfirmation,

   [TMsgD*n.mbYes, TMsgD*n.mbNo], -) = mrYes then

   begin

   end;

 end;

 procedure TForm1.Button7Click(Sender: TObject);

 var

   msresult: string;

 begin

   msresult := FMX.Dialogs.InputBox('询问', '你多大了？', '我 10 岁了。');

   ShowMessage('你输入的是:' + msresult);

 end;

 end.

码农公寓

相关文章