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);
时间: 2024-11-05 02:19:15