Android实例-多窗口的切换(XE8+小米2)

1.图片一是程序运行后的界面。

2.图片二是点击"非模态显示"的界面。

3.图片三是点击"模诚显示"的界面（提示平台不支持）。

 unit Unit1;

 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
   TForm1 = class(TForm)
     Button1: TButton;
     Label1: TLabel;
     Button2: TButton;
     procedure Button1Click(Sender: TObject);
     procedure Button2Click(Sender: TObject);
   private
     { Private declarations }
   public
     { Public declarations }
   end;

 var
   Form1: TForm1;

 implementation
 uses Unit2;
 {$R *.fmx}
 {$R *.NmXhdpiPh.fmx ANDROID}

 procedure TForm1.Button1Click(Sender: TObject);
 begin
   Form2.Show;//非模态显示窗体二
 end;

 procedure TForm1.Button2Click(Sender: TObject);
 begin
   Form2.ShowModal;//模态显示窗体二
 end;

 end.

 unit Unit2;

 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
   TForm2 = class(TForm)
     Label1: TLabel;
     Button1: TButton;
     procedure Button1Click(Sender: TObject);
   private
     { Private declarations }
   public
     { Public declarations }
   end;

 var
   Form2: TForm2;

 implementation

 {$R *.fmx}
 {$R *.NmXhdpiPh.fmx ANDROID}

 procedure TForm2.Button1Click(Sender: TObject);
 begin
   Form2.Close;//隐藏窗体二
 {当然，按返回键也能隐藏第二个窗口。
 总的来说，基本上与 windows 下编程一样。}
 end;

 end.