13-12-2019, Saat: 15:08
13-12-2019, Saat: 16:08
Bazen buraya yazınca çözüyorum...


procedure TFrmMain.Set_Phone;
begin
TPermissionsService.DefaultService.RequestPermissions(['android.permission.READ_PHONE_STATE'],
procedure(const APermissions: TArray<string>; const AGrantResults: TArray<TPermissionStatus>)
begin
if (Length(AGrantResults) = 1) and (AGrantResults[0] = TPermissionStatus.Granted) then
begin
end;
end,
procedure(const APermissions: TArray<string>; const APostRationaleProc: TProc)
begin
TDialogService.ShowMessage('Uygulamayı kullanabilmek için gerekli izinleri veriniz..',
procedure(const AResult: TModalResult)
begin
APostRationaleProc;
end)
end);
end;13-12-2019, Saat: 18:52
https://en.delphipraxis.net/topic/365-an...i-rio-103/
Böyle bir link kaydetmişim sık kullanılanlara, kolay gelsin.
Gerçi çözümü bulmuşsunuz (:
Böyle bir link kaydetmişim sık kullanılanlara, kolay gelsin.
Gerçi çözümü bulmuşsunuz (: