打电话

打电话

引用单元

Androidapi.JNI.Telephony, Androidapi.JNIBridge, Androidapi.JNI.GraphicsContentViewText,
Androidapi.Helpers,Androidapi.JNI.JavaTypes,FMX.platform, FMX.PhoneDialer, FMX.platform.Android

打电话

procedure Tfcall.Button1Click(Sender: TObject);
var
phone: IFMXPhoneDialerService;
begin
if TPlatformServices.Current.SupportsPlatformService(IFMXPhoneDialerService, IInterface(phone)) then
begin
phone.Call(Edit1.Text);
//监听电话请用phone.OnCallStateChanged事件
end;
end;