Android实例-消息框(XE8+小米2)
方法一支持。
方法二与方法三都是三方单元，功能相同。
方法4与方法5报错，提示平台不支持。
第三方单元一：
1 unit Android.JNI.Toast;
2
3 // Java bridge class imported by hand by Brian Long (http://blong.com)
4 interface
5
6 {$IFDEF ANDROID}
7
8 uses
9 Androidapi.Helpers,
10 Androidapi.JNIBridge,
11 Androidapi.JNI.JavaTypes,
12 Androidapi.JNI.GraphicsContentViewText;
13 {$ENDIF}
14 {$IFDEF ANDROID}
15
16 type
17 TToastLength = (LongToast, ShortToast);
18
19 JToast = interface;
20
21 JToastClass = interface(JObjectClass)
22 ['{69E2D233-B9D3-4F3E-B882-474C8E1D50E9}']
23 { Property methods }
24 function _GetLENGTH_LONG: Integer; cdecl;
25 function _GetLENGTH_SHORT: Integer; cdecl;
26 { Methods }
27 function init(context: JContext): JToast; cdecl; overload;
28 function makeText(context: JContext; text: JCharSequence; duration: Integer)
29 : JToast; cdecl;
30 { Properties }
31 property LENGTH_LONG: Integer read _GetLENGTH_LONG;
32 property LENGTH_SHORT: Integer read _GetLENGTH_SHORT;
33 end;
34
35 [JavaSignature('android/widget/Toast')]
36 JToast = interface(JObject)
37 ['{FD81CC32-BFBC-4838-8893-9DD01DE47B00}']
38 { Methods }
39 procedure cancel; cdecl;
40 function getDuration: Integer; cdecl;
41 function getGravity: Integer; cdecl;
42 function getHorizontalMargin: Single; cdecl;
43 function getVerticalMargin: Single; cdecl;
44 function getView: JView; cdecl;
45 function getXOffset: Integer; cdecl;
46 function getYOffset: Integer; cdecl;
47 procedure setDuration(value: Integer); cdecl;
48 procedure setGravity(gravity, xOffset, yOffset: Integer); cdecl;
49 procedure setMargin(horizontalMargin, verticalMargin: Single); cdecl;
50 procedure setText(s: JCharSequence); cdecl;
51 procedure setView(view: JView); cdecl;
52 procedure show; cdecl;
53 end;
54
55 TJToast = class(TJavaGenericImport<JToastClass, JToast>)
56 end;
57
58 procedure Toast(const Msg: string; duration: TToastLength = ShortToast);
59
60 {$ENDIF}
61
62 implementation
63
64 {$IFDEF ANDROID}
65
66 uses
67 FMX.Helpers.Android;
68
69 procedure Toast(const Msg: string; duration: TToastLength);
70 var
71 ToastLength: Integer;
72 begin
73 if duration = ShortToast then
74 ToastLength := TJToast.JavaClass.LENGTH_SHORT
75 else
76 ToastLength := TJToast.JavaClass.LENGTH_LONG;
77 CallInUiThread(
78 procedure
79 begin
80 TJToast.JavaClass.makeText(SharedActivityContext, StrToJCharSequence(Msg),
81 ToastLength).show
82 end);
83 end;
84 {$ENDIF}
85
86 end.
第三方单元二：
1 {***************************************************************************}
2 { }
3 { 功能：Android Toast提示消息框 }
4 { 名称：Androidapi.JNI.Widget.Toast.pas }
5 { 版本：1.0 }
6 { 环境：Win7 Sp1 64bit }
7 { 工具：Delphi XE7 }
8 { 日期：2014-11-23 19:45:35 }
9 { 用法：TToast.Show(MessageText, isLongHint) }
10 {--------------------------------------------------------------------------}
11 { }
17 {---------------------------------------------------------------------------}
18 { 修改者：tht2009 }
19 { 改动：1、去掉注释掉的方法 }
20 { 2、移动FMX.Helpers.Android引用声明到实现区 }
21 { 3、增加Androidapi.Helpers引用 }
22 { }
23 {***************************************************************************}
24
25 unit Androidapi.JNI.Widget.Toast;
26
27 interface
28
29 uses
30 Androidapi.JNIBridge,
31 Androidapi.JNI.JavaTypes,
32 Androidapi.JNI.GraphicsContentViewText;
33
34 type
35 JToast = interface;//android.widget.Toast
36
37 JToastClass = interface(JObjectClass)
38 ['{CF455B66-683D-41F9-B386-0C49E42D4F92}']
39 {Property Methods}
40 function _GetLENGTH_LONG: Integer;
41 function _GetLENGTH_SHORT : Integer;
42 {Methods}
43 // public Toast (Context context)
44 function init(context: JContext): JToast; cdecl;
45 // public static Toast makeText (Context context, int resId, int duration)
46 function makeText(context: JContext; resId: Integer; duration: Integer): JToast;cdecl;overload;
47 // public static Toast makeText (Context context, CharSequence text, int duration)
48 function makeText(context: JContext; text: JCharSequence; duration: Integer): JToast;cdecl;overload;
49 {Properties}
50 property LENGTH_LONG: Integer read _GetLENGTH_LONG;
51 property LENGTH_SHORT: Integer read _GetLENGTH_SHORT;
52 end;
53
54 [JavaSignature('android/widget/Toast')]
55 JToast = interface(JObject)
56 ['{4A284317-000C-4048-8674-C475F505CFAF}']
57 {Methods}
58 // public void cancel ()
59 procedure cancel;cdecl;
60 // public int getDuration ()
61 function getDuration: Integer; cdecl;
62 // public int getGravity ()
63 function getGravity: Integer; cdecl;
64 // public float getHorizontalMargin ()
65 function getHorizontalMargin: Single; cdecl;
66 // public float getVerticalMargin ()
67 function getVerticalMargin: Single; cdecl;
68 // public View getView ()
69 function getView: JView; cdecl;
70 // public int getXOffset ()
71 function getXOffset: Integer; cdecl;
72 // public int getYOffset ()
73 function getYOffset: Integer; cdecl;
74 // public void setDuration (int duration)
75 procedure setDuration(duration: Integer); cdecl;
76 // public void setGravity (int gravity, int xOffset, int yOffset)
77 procedure setGravity(gravity, xOffset, yOffset: Integer);cdecl;
78 // public void setMargin (float horizontalMargin, float verticalMargin)
79 procedure setMargin(horizontalMargin, verticalMargin: Single);cdecl;
80 // public void setText (int resId)
81 procedure setText(resId: Integer);cdecl;overload;
82 // public void setText (CharSequence s)
83 procedure setText(s: JCharSequence);cdecl;overload;
84 // public void setView (View view)
85 procedure setView(view: JView);cdecl;
86 // public void show ()
87 procedure show;cdecl;
88 end;
89
90 TJToast = class(TJavaGenericImport<JToastClass, JToast>) end;
91
92 { TToast }
93 TToast = class
94 public
95 class procedure Show(const text: string; LongHint: Boolean = False);
96 end;
97
98 implementation
99
100 uses FMX.Helpers.Android, Androidapi.Helpers;
101
102 { TToast }
103
104 class procedure TToast.Show(const text: string; LongHint: Boolean);
105 var
106 LDuration: Integer;
107 begin
108 CallInUIThread
109 (
110 procedure
111 begin
112 case LongHint of
113 True : LDuration := TJToast.JavaClass.LENGTH_LONG;
114 False : LDuration := TJToast.JavaClass.LENGTH_SHORT;
115 end;
116 TJToast.JavaClass.makeText(SharedActivityContext, StrToJCharSequence(text), LDuration).show;
117 end
118 );
119 end;
120
121 end.
应用单元：
1 unit Unit1;
2
3 interface
4
5 uses
6 System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
7 FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,
8 FMX.Controls.Presentation, FMX.StdCtrls;
9
10 type
11 TForm1 = class(TForm)
12 Button1: TButton;
13 Button2: TButton;
14 Button3: TButton;
15 Button4: TButton;
16 Button5: TButton;
17 Button6: TButton;
18 Button7: TButton;
19 procedure Button1Click(Sender: TObject);
20 procedure Button2Click(Sender: TObject);
21 procedure Button3Click(Sender: TObject);
22 procedure Button4Click(Sender: TObject);
23 procedure Button5Click(Sender: TObject);
24 procedure Button6Click(Sender: TObject);
25 procedure Button7Click(Sender: TObject);
26 private
27 { Private declarations }
28 public
29 { Public declarations }
30 end;
31
32 var
33 Form1: TForm1;
34
35 implementation
36
37 uses
38 Android.JNI.Toast, Androidapi.JNI.Widget.Toast;
39 {$R *.fmx}
40 {$R *.NmXhdpiPh.fmx ANDROID}
41
42 procedure TForm1.Button1Click(Sender: TObject);
43 begin
44 ShowMessage('与原来的一样哦！'); //消息提示方法一
45 end;
46
47 procedure TForm1.Button2Click(Sender: TObject);
48 begin
49 Toast('消息提示方法二', LongToast);
50 end;
51
52 procedure TForm1.Button3Click(Sender: TObject);
53 begin
54 Toast('消息提示方法二', ShortToast);
55 end;
56
57 procedure TForm1.Button4Click(Sender: TObject);
58 begin
59 TToast.Show('消息提示方法3。', False);
60 end;
61
62 procedure TForm1.Button5Click(Sender: TObject);
63 begin
64 TToast.Show('消息提示方法3。', True);
65 end;
66
67 procedure TForm1.Button6Click(Sender: TObject);
68 begin
69 if MessageDlg('你喜欢我吗？', TMsgDlgType.mtConfirmation,
70 [TMsgDlgBtn.mbYes, TMsgDlgBtn.mbNo], -1) = mrYes then
71 begin
72
73 end;
74 end;
75
76 procedure TForm1.Button7Click(Sender: TObject);
77 var
78 msresult: string;
79 begin
80 msresult := FMX.Dialogs.InputBox('询问', '你多大了？', '我 10 岁了。');
81 ShowMessage('你输入的是:' + msresult);
82 end;
83
84 end.
