Delphi Firemonkey에서 어떻게 토스트를 사용합니까?

Question

Delphi XE5에서 Android의 toast은 어떻게 사용합니까?

라이브러리 FMX.AndroidLike.Toast을 사용하려고 시도했지만 시스템이 실행되는 동안 Toast이 표시되기 전에 닫는 중입니다.

Answer 1

나는 당신이 이미 알고 있다는 것을 안다. 그러나 다른 사람들을 위해서 ... 만약을 위해서. 당신은 구성 요소를 설치하면 toastmessages를 표시하고 전화를하려는 폼에 추가 할 필요가

...

componentname.now('Your toastmessage string'); 

원하는 경우 단위 FMX.Androidlike.Toast을 추가하는 것을 잊지 마십시오 컴포넌트 기반 접근법을 사용한다. 구성 요소는 외관상 꽤 많이 구성 될 수 있습니다 (또한 메시지가 표시되는 기간).

프로 시저를

toast('Your toastmessage string', youroptionaltoastduration); 

을 Android.JNI.Toast를 사용 브라이언 장치의 JNI 방식을 사용하고 호출 할 경우 구성 요소를 찾을 수 있습니다 이제

에 스크린 캐스트에 대한 링크 https://www.cybertribe.de/info/components/fmx/toast/

Answer 2

실제로 더 쉬운 방법 : 자체 토스트 유닛 만들기.

unit toast_unit; 

interface 

uses 
    System.SysUtils, System.Types, System.UITypes, System.Classes, 
    System.Variants, FMX.Types, FMX.Controls, FMX.Forms, 
    FMX.Graphics, FMX.Dialogs, FMX.StdCtrls, 
    FMX.Controls.Presentation; 

type 
    TToastLength = (LongToast, ShortToast); 

type 
    TForm1 = class(TForm) 
    Button1: TButton; 
    procedure Button1Click(Sender: TObject); 
    private 
    { Private declarations } 
    public 
    { Public declarations } 
    end; 

var 
    Form1: TForm1; 

implementation 

{$IFDEF ANDROID} 

uses 
    Android.JNI.Toast, 
    Androidapi.Helpers, 
    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} 


{$R *.fmx} 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
    {$IFDEF ANDROID} 
    Toast ('aha', LongToast); 
    {$ENDIF} 
end; 

end.