Aktion bei MessageDlg wenn klick auf ja oder nein

[Sprint]

Delphi-Quellcode:

var
  MsgResult: Integer;
begin

  MsgResult := MessageDlg('Speichern ?', mtConfirmation, [mbYes, mbNo, mbCancel], 0);

  case MsgResult of
    mrYes: ShowMessage('Ja');
    mrNo: ShowMessage('Nein');
    mrCancel: ShowMessage('Abbrechen');
  end;