Android密码登录源代码,Android登录界面源代码delphi xe10

572fd1231d4ad9084b51dcaa77ffcfd1.png

[示例介绍]

[示例屏幕截图] #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(自己);

7f19761a9965e7f94cac1d12ccf94de0.png

fmapp.Parent: = TabItem1;

fmapp.Align: = TAlignLayout.Client;

fmmsg: = Tfmmsg.Create(自己);

fmmsg.Parent: = TabItem2;

fmmsg.Align: = TAlignLayout.Client;

83e6981af33785dcb2bb95911a1ed58a.jpg

fmtel: = Tfmtel.Create(自己);

fmtel.Parent: = TabItem3;

fmtel.Align: = TAlignLayout.Client;

fmsetting: = Tfmsetting.Create(自己);

fmsetting.Parent: = TabItem4;

708331ff-6bc7-40e4-90ae-a2942f9b1697.jpg

fmsetting.Align: = TAlignLayout.Client;}

end;

过程Tfmbody.UnInitFrame();

开始

{fmapp.DisposeOf;

i_4_2371931846x2526840090_15.jpg

fmmsg.DisposeOf;

fmtel.DisposeOf;

fmsetting.DisposeOf;}

end;

结束.

本文来自电脑杂谈,转载请注明本文网址:

http://www.pc-fly.com/a/jisuanjixue/article-157753-1.html

  • 0
    点赞
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
二维码扫描是一种通过摄像头扫描二维码图像并解码其包含的信息的技术。在Delphi XE10 Android移动端开发中,我们可以使用ZXing库来实现二维码扫描功能。 首先,我们需要在Delphi XE10中导入ZXing库。可以通过在Project->Options->Delphi Compiler->Linking->Library Path中添加ZXing库路径来完成导入。 接下来,我们在界面上放置一个按钮和一个TLabel用于显示扫描结果。通过按钮的OnClick事件,调用下面的代码来实现二维码扫描功能: ``` uses Androidapi.JNI.GraphicsContentViewText, Androidapi.Helpers, FMX.Graphics; procedure TForm1.Button1Click(Sender: TObject); var Intent: JIntent; begin Intent := TJIntent.Create; Intent.setAction(StringToJString('com.google.zxing.client.android.SCAN')); Intent.putExtra(StringToJString('SCAN_MODE'), StringToJString('QR_CODE_MODE')); Intent.putExtra(StringToJString('PROMPT_MESSAGE'), StringToJString('请对准二维码')); if Intent.resolveActivity(TAndroidHelper.Context.getPackageManager) <> nil then TAndroidHelper.Activity.startActivityForResult(Intent, 0) else ShowMessage('无法启动扫描功能'); end; procedure TForm1.FormActivityResult(requestCode, resultCode: Integer; Data: JIntent); begin if (requestCode = 0) and (resultCode = TJActivity.JavaClass.RESULT_OK) then begin if Assigned(Data) and Data.hasExtra(StringToJString('SCAN_RESULT')) then Label1.Text := JStringToString(Data.getStringExtra(StringToJString('SCAN_RESULT'))) else ShowMessage('扫描失败'); end; end; ``` 以上代码中,通过调用Intent的setAction方法设置扫描动作为"com.google.zxing.client.android.SCAN",并通过putExtra方法设置扫描模式为"QR_CODE_MODE",提示信息为"请对准二维码"。 在FormActivityResult方法中,根据Activity的结果判断是否成功扫描并获取扫描结果,然后将结果显示在Label1上。 通过以上代码,我们就可以在Delphi XE10 Android移动端开发中实现二维码扫描功能了。当用户点击按钮时,会启动二维码扫描界面,用户只需将二维码对准摄像头即可完成扫描,并在Label1上显示扫描结果。

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值