Android登录界面源代码delphi xe10

屏幕

[示例介绍][示例屏幕截图]#8:8:f:8:2:9delphixe10Android:2:9:8:8:8:d:d:1:d:c:1:c:e:1:1:2:9:7:8:7:5delphixe10Android:4:4:5:5:5#[核心代码]过程Tfmbody。

InitFrame（）;开始{fmapp:=Tfmapp。Create（自己）;fmapp。Parent:=TabItem1;fmapp。Align:=TAlignLayout。Client;fmmsg:=Tfmmsg。Create（自己）;fmmsg。

Parent:=TabItem2;fmmsg。Align:=TAlignLayout。Client;fmtel:=Tfmtel。Create（自己）；fmtel。Parent:=TabItem3;fmtel。Align:=TAlignLayout。

Android

Client;fmsetting:=Tfmsetting。Create（自己）；fmsetting。Parent:=TabItem4;fmsetting。Align:=TAlignLayout。Client;}end;过程Tfmbody。

UnInitFrame（）;开始{fmapp。DispoSEOf;fmmsg。DispoSEOf;fmtel。DispoSEOf;fmsetting。DispoSEOf;}end;结束。