本文整理自网络,侵删。
振动用到以下4个单元:Androidapi.JNI.App,Androidapi.JNIBridge,Androidapi.JNI.Os,Androidapi.Helpers使用方法:var LVibrator: JVibrator;begin LVibrator := TJVibrator.Wrap ((SharedActivity.getSystemService(TJActivity.JavaClass.VIBRATOR_SERVICE) as ILocalObject).GetObjectID); // 调用振动 if not LVibrator.hasVibrator then begin ShowMessage('手机不支持震动'); Exit; end; LVibrator.vibrate(500); // 振动500毫秒最后在Project Options中设置Uses Permissions将Vibrate设为true
详细程序如下:unit Unit6;interfaceuses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,Androidapi.JNI.App, FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls, Androidapi.JNIBridge,Androidapi.JNI.Os,Androidapi.Helpers;type TForm6 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form6: TForm6;implementation{$R *.fmx}procedure TForm6.Button1Click(Sender: TObject);var LVibrator: JVibrator;begin LVibrator := TJVibrator.Wrap ((SharedActivity.getSystemService(TJActivity.JavaClass.VIBRATOR_SERVICE) as ILocalObject).GetObjectID); // 调用振动 if not LVibrator.hasVibrator then begin ShowMessage('手机不支持震动'); Exit; end; LVibrator.vibrate(500); // 振动500毫秒end;
end.
权限配置

相关阅读 >>
Delphi 判断指定字符串是否开头 startstext用法
Delphi createthread的线程传参数(小熊论坛的)
Delphi使用cef4Delphi制作chromium谷歌内核浏览器
更多相关阅读请进入《Delphi》频道 >>