本文整理自网络,侵删。
//引用单元:FMX.PlatForm, FMX.PhoneDialer
procedure TForm1.Call(ANum: String);
var
PhoneDialerService: IFMXPhoneDialerService;
begin
if TPlatformServices.Current.SupportsPlatformService(IFMXPhoneDialerService,
IInterface(PhoneDialerService)) then
if ANum <> '' then
PhoneDialerService.Call(ANum);
end;
这里使用的SupportsPlatFormService会返回PhoneDialerService实例!
相关阅读 >>
Delphi 禁止用键盘左右箭头,去切换pagecontrol页签
更多相关阅读请进入《Delphi》频道 >>