Android实例-多窗口的切换
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.