Delphi Non-Blocking MessageDialogの例どのように？

Question

私はこれが私の手順ですFMX.Platform.IFMXDialogServiceAsync

を使用して問題を持っている：

以下

procedure TFormMain.btnLogoutClick(Sender: TObject); 
var 
    ASyncService : IFMXDialogServiceASync; 

begin 

    ASyncService.MessageDialogAsync('Do you want to logout?', TMsgDlgType.mtInformation, 
    [System.UITypes.TMsgDlgBtn.mbYes, System.UITypes.TMsgDlgBtn.mbNo], 
    TMsgDlgBtn.mbNo, 
    0, 
    procedure(const AResult: TModalResult) 
    begin 
     case AResult of 
     mrYes: 
     begin 
      Close; 
     end; 
     mrNo: 
     begin 
     // pressed no 
     end; 
     end; 
    end 
); 

end; 

はエラーというポップアップです：

Androidデバイスとエラーショーに直接しようとしました

Access violation at address 
A29FC4F2, accessing address 
00000000. 

このプロシージャがトリガされるたびにEmbarcaderoのドキュメントに目を通しましたが、そのための例はありませんでした。私は http://c2design5sh.blogspot.co.id/2016/05/rad-studio-dx-101-berlin-dialog-api.html

上で使用することをいくつかの例を書い

誰かが私はMessageDlgは廃止行く見つけたので、誰もが?,アンドロイドで新しい方法MessageDialogを行う方法であっ伝えることができますです。

Answer 1

リンク先の記事のコードを使用するだけで済みます。あなたはそうしなかった。サンプルコードは、このフォームがあります：

var 
    ASyncService : IFMXDialogServiceASync; 
.... 
if TPlatformServices.Current.SupportsPlatformService(IFMXDialogServiceAsync, IInterface (ASyncService)) then 
begin 
    ASyncService.MessageDialogAsync(....); 
end; 

あなたのコードはASyncService変数に割り当てることができません。したがって、ランタイムエラー。