Android登录界面源代码delphi xe10

[示例介绍]

[示例屏幕截图] #8:8:f:8:2:9delphi xe10 android:2:9:8:8:8:d:d:1:d:c:1:c:e:1:1:2:9:7:8:7:5delphi xe10 android: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.Client;

fmsetting: = Tfmsetting.Create（自己）；

fmsetting.Parent: = TabItem4;

fmsetting.Align: = TAlignLayout.Client;}

end;

过程Tfmbody.UnInitFrame（）;

开始

{fmapp.DisposeOf;

fmmsg.DisposeOf;

fmtel.DisposeOf;

fmsetting.DisposeOf;}

end;

结束.

本文来自电脑杂谈，转载请注明本文网址：
https://www.pc-fly.com/a/jisuanjixue/article-157753-1.html