1.图片一是程序运行后的界面。
2.图片二是点击"非模态显示"的界面。
3.图片三是点击"模诚显示"的界面（提示平台不支持）。
1 unit Unit1; 2 3 interface 4 5 uses 6 System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, 7 FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls, 8 FMX.Controls.Presentation; 9 10 type 11 TForm1 = class(TForm) 12 Button1: TButton; 13 Label1: TLabel; 14 Button2: TButton; 15 procedure Button1Click(Sender: TObject); 16 procedure Button2Click(Sender: TObject); 17 private 18 { Private declarations } 19 public 20 { Public declarations } 21 end; 22 23 var 24 Form1: TForm1; 25 26 implementation 27 uses Unit2; 28 {$R *.fmx} 29 {$R *.NmXhdpiPh.fmx ANDROID} 30 31 procedure TForm1.Button1Click(Sender: TObject); 32 begin 33 Form2.Show;//非模态显示窗体二 34 end; 35 36 procedure TForm1.Button2Click(Sender: TObject); 37 begin 38 Form2.ShowModal;//模态显示窗体二 39 end; 40 41 end.
1 unit Unit2; 2 3 interface 4 5 uses 6 System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, 7 FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls, 8 FMX.Controls.Presentation; 9 10 type 11 TForm2 = class(TForm) 12 Label1: TLabel; 13 Button1: TButton; 14 procedure Button1Click(Sender: TObject); 15 private 16 { Private declarations } 17 public 18 { Public declarations } 19 end; 20 21 var 22 Form2: TForm2; 23 24 implementation 25 26 {$R *.fmx} 27 {$R *.NmXhdpiPh.fmx ANDROID} 28 29 procedure TForm2.Button1Click(Sender: TObject); 30 begin 31 Form2.Close;//隐藏窗体二 32 {当然，按返回键也能隐藏第二个窗口。 33 总的来说，基本上与 windows 下编程一样。} 34 end; 35 36 end.