delphi XE8 Android 中使用 MessageDlg 范例

MessageDlg('你好',System.UITypes.TMsgDlgType.mtInformation,[System.UITypes.TMsgDlgbtn.mbOK],-1,nil);

还不如用showmessage 一样的效果。还简单

最后一个参数nil不带，会提示：

BLOCKING dialogs not implemented on this platform

MessageDlg('Choose a button:', System.UITypes.TMsgDlgType.mtInformation,    [      System.UITypes.TMsgDlgBtn.mbYes,      System.UITypes.TMsgDlgBtn.mbNo,      System.UITypes.TMsgDlgBtn.mbCancel    ], 0,    procedure(const AResult: TModalResult)    begin      if AResult = mrYES then         ShowMessage('You chose Yes') else      if AResult = mrNo then         ShowMessage('You chose No') else      if AResult = mrCancel then         ShowMessage('You chose Cancel');    end);