Else anwenden in Delphi(MessageDlg)

[Die Muhkuh]

Hi,

könntest auch so schreiben:

Delphi-Quellcode:

procedure THauptForm.Btn_exitClick(Sender: TObject); 
begin      //Btn_exitClick 
  case MessageDlg('Wollen Sie das Programm wirklich beenden???',  mtConfirmation, [mbYes, mbNo], 0) of
     mrYes: ShowMessage('Programm wird beendet');
     mrNo: ShowMessage('Programm wird nicht beendet');
  end;
end;