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);