delphi android 中 Toast 的实现(老外写的UNIT)
内容导读
互联网集市收集整理的这篇技术教程文章主要介绍了delphi android 中 Toast 的实现(老外写的UNIT)，小编现在分享给大家，供广大互联网技能从业者学习和参考。文章包含2151字，纯文字阅读大概需要4分钟。
内容图文
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.
原文：http://www.cnblogs.com/happyhills/p/3544665.html
内容总结
以上是互联网集市为您收集整理的delphi android 中 Toast 的实现(老外写的UNIT)全部内容，希望文章能够帮你解决delphi android 中 Toast 的实现(老外写的UNIT)所遇到的程序开发问题。 如果觉得互联网集市技术教程内容还不错，欢迎将互联网集市网站推荐给程序员好友。
内容备注
版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 gblab@vip.qq.com 举报，一经查实，本站将立刻删除。
内容手机端
扫描二维码推送至手机访问。