XE5 Firemonkey MessageBox/MessageDlg

[attila71]

MessageDlg('ANNULLO L''OPERAZIONE ?', System.UITypes.TMsgDlgType.mtInformation,
[
System.UITypes.TMsgDlgBtn.mbYes,
System.UITypes.TMsgDlgBtn.mbNo,
System.UITypes.TMsgDlgBtn.mbCancel
], 0,
procedure(const AResult: System.UITypes.TModalResult)
begin
case AResult of
mrYES:
BEGIN
// PREMUTO SI

END;
mrNo:
// PREMUTO NO

mrCancel:
// PREMUTO ANNULLA NON FACCIO NULLA
;
end;
end);