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;

下面是弹出错误：

Access violation at address
A29FC4F2, accessing address
00000000.

只要触发此过程，就会直接尝试Android设备和错误。看看Embarcadero文档，但他们没有为此提供一个例子。

有人写了我上面使用的一些例子 http://c2design5sh.blogspot.co.id/2016/05/rad-studio-dx-101-berlin-dialog-api.html

有没有人可以告诉我如何在Android中使用新的MessageDialog方法？因为我发现MessageDlg已经弃用了。

Answer 1

您只需使用链接到的文章中的代码即可。你没有这样做。示例代码具有以下形式：

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

您的代码无法分配给ASyncService变量。因此运行时错误。

Delphi非阻塞MessageDialog示例如何？

1 个答案: