toast
Delphi XE5 でAndroid を使用するにはどうすればよいですか?
ライブラリを使用しようとしましたFMX.AndroidLike.Toast
が、実行中に が表示される前にシステムが終了Toast
します。
toast
Delphi XE5 でAndroid を使用するにはどうすればよいですか?
ライブラリを使用しようとしましたFMX.AndroidLike.Toast
が、実行中に が表示される前にシステムが終了Toast
します。
私はあなたがすでに知っていることを知っています...しかし、他の人にとっては...念のため。
コンポーネントをインストールし、トーストメッセージを表示したいフォームに追加して、... を呼び出す必要があります。
componentname.now('Your toastmessage string');
コンポーネント ベースのアプローチを使用する場合は、Unit FMX.Androidlike.Toast を忘れずに追加してください。コンポーネントは、外観 (メッセージが表示される期間も) でほとんど構成できます。
Brians ユニットの JNI アプローチを使用する場合は、 Android.JNI.Toast を使用してプロシージャを呼び出します
toast('Your toastmessage string', youroptionaltoastduration);
コンポーネントとスクリーンキャストへのリンクを見つけることができます
unit UI.Toast.Android;
// Java bridge class imported by hand by Brian Long (http://blong.com)
interface
{$IFDEF ANDROID}
uses
UI.Toast,
Androidapi.JNIBridge,
Androidapi.JNI.JavaTypes,
Androidapi.JNI.GraphicsContentViewText;
{$ENDIF}
{$IFDEF ANDROID}
type
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
{$IF CompilerVersion > 27}Androidapi.Helpers, {$ENDIF}
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(
{$IF CompilerVersion > 27}
TAndroidHelper.Context,
{$ELSE}
SharedActivityContext,
{$ENDIF}
StrToJCharSequence(Msg),
ToastLength).show
end);
end;
{$ENDIF}
end.
https://github.com/yangyxd/FMXUI/blob/master/source/UI.Toast.pas https://github.com/yangyxd/FMXUI/blob/master/source/UI.Toast.Android.pas