Einzelnen Beitrag anzeigen

attila71

Registriert seit: 21. Mär 2018
1 Beiträge
 
#22

AW: XE5 Firemonkey MessageBox/MessageDlg

  Alt 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);
  Mit Zitat antworten Zitat