Registriert seit: 21. Mär 2018
1 Beiträge
|
AW: XE5 Firemonkey MessageBox/MessageDlg
11. Jul 2019, 14:25
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);
|