Displaying toast (quick disappearing message) on Android
First, you need to download and install FGX controls. They are available here:
Write code below:
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.
|