本文整理自网络，侵删。
屏幕变黑时，通常无法读取读取终端上显示的条形码的应用程序。在这种情况下，执行增加应用侧装置的亮度的方法。
使用WindowManager.Layoutparams可以控制Delphi中的亮度。
样例代码将一个按钮放在窗体上
按下按钮以最大化亮度。再次按下以最小化亮度。描述该过程。（已与Nexus 5（Android 5.1.1确认））unit Unit1;
interface
uses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, Androidapi.JNI.GraphicsContentViewText, FMX.Controls.Presentation, FMX.StdCtrls, Androidapi.Helpers, Androidapi.Jni, Androidapi.JNI.App ;
type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); procedure FormShow(Sender: TObject); private { private 宣言 } jp: JWindowManager_LayoutParams; // WindowManager.LayoutParams sw: Boolean; // ?g?にスイッチ public { public 宣言 } end;
var Form1: TForm1;
implementation
{$R *.fmx}
procedure TForm1.Button1Click(Sender: TObject);begin if sw then begin //最小化亮度 jp.screenBrightness := TJWindowManager_LayoutParams.JavaClass.BRIGHTNESS_OVERRIDE_OFF; sw := False; end else begin //最大亮度 jp.screenBrightness := TJWindowManager_LayoutParams.JavaClass.BRIGHTNESS_OVERRIDE_FULL; sw := True; end; //设置反射亮度 TAndroidHelper.Activity.getWindow.setAttributes(jp);end;
procedure TForm1.FormShow(Sender: TObject);begin jp := TAndroidHelper.Activity.getWindow.getAttributes; // ?F在の?x度の状?Bを取得 sw :=True; //初始化开关end;
end.
相关阅读 >>
Delphi d10.x 安卓app开发中按返回键后程序不退出程序的方法
Delphi 网上获取北京时间firedac 下的 sqlite [3] - 获取数据库的基本信息
datasnap 上传/下载大文件(本demo以图传片文件为例)
更多相关阅读请进入《Delphi》频道 >>
