Android实例-多窗口的切换(XE8+小米2)
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.
作者:疯狂Delphi
本文版权归作者和博客园共有,欢迎转载,但未经作者同意必须保留此段声明,且在文章页面明显位置给出原文连接,否则保留追究法律责任的权利.
欢迎关注我,一起进步!扫描下方二维码即可加我


【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】凌霞软件回馈社区,博客园 & 1Panel & Halo 联合会员上线
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】博客园社区专享云产品让利特惠,阿里云新客6.5折上折
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步