Hallo,
ich lerne in der Schule zur Zeit Delphi und nun hat uns der Leher eine Hausaufgabe aufgeben, womit ich nen Problem habe, da wir das noch gar nicht hatten. Also ich habe folgenden Code:
Delphi-Quellcode:
procedure THauptForm.Btn_exitClick(Sender: TObject);
begin //Btn_exitClick
if MessageDlg('Wollen Sie das Programm wirklich beenden???',
mtConfirmation, [mbYes, mbNo], 0) = mrYes then
begin
MessageDlg('Das Programm wird nun beendet.', mtInformation,
[mbOk], 0);
Close;
end;
end; //Btn_exitClick
Nun sollen wir noch einbauen, dass wenn man auf Nein klickt die Meldung kommt: Das Programm wird nicht beendet. Also quasi:
Delphi-Quellcode:
MessageDlg('Das Programm wird nicht beendet.', mtInformation,
[mbOk], 0);
Da wir if und else noch gar nicht gehabt haben, habe ich nun natürlich ein Problem^^
Daher denke ich mal das man das dann mit Else macht. Nur leider habe ich keine Ahnung wie ich das da einbauen soll(habe erst sei ca. 3-4 Wochen Delphi).
Ich bedanke mich schon jetzt für Ihre/Eure Hilfe.
Mit freundlichen Gruß
Black-Rider