Programm beenden: Ja oder Nein?

[Frankie]

Ich habe ja schon in einem anderen Thread gefragt, doch ich sollte dafür ein neues Thema aufmachen.
Folgenden Vorschlag habe ich bekommen:

Delphi-Quellcode:

if Application.MessageBox('Programm Beenden?', 'Tital', 36) = 6 then 
begin 
  Application.Terminate; 
end;

So, das funktioniert nun wunderbar. Könnte mir nun vielleicht jemand erklären warum das so funktioniert? Was bedeutet zum Beispiel 'Tital' etc. Ich hab echt keine Ahnung.

Noch was: Ich hab versucht mal einfach einzugeben:
MessageBox('Hallo') - kann sowas überhaupt funktionieren? Oder wozu ist die MessageBox gut?

[Luckie]

Kuck dir mal das Ereignis OnCloseQuery von TForm an. Und nimm besser Close anstatt Application.Terminate.

[Tubos]

Zitat:

So, das funktioniert nun wunderbar. Könnte mir nun vielleicht jemand erklären warum das so funktioniert? Was bedeutet zum Beispiel 'Tital' etc. Ich hab echt keine Ahnung.

Probiere es mal aus, dann siehst du es
tital sollte wohl titel heißen ^^

Zitat:

Noch was: Ich hab versucht mal einfach einzugeben:
MessageBox('Hallo') - kann sowas überhaupt funktionieren?

nein.

Zitat:

Oder wozu ist die MessageBox gut?

Am besten schaust du in der Delphi-Hilfe nach.
Ich könnte jetzt auch nur das entsprechende Thema copy&pasten.

[alcaeus]

Zitat von Frankie:

So, das funktioniert nun wunderbar. Könnte mir nun vielleicht jemand erklären warum das so funktioniert? Was bedeutet zum Beispiel 'Tital' etc. Ich hab echt keine Ahnung.

Ich schätze mal das sollte 'Titel' heißen und ist nur ein Schreibfehler.

Zitat von Frankie:

Noch was: Ich hab versucht mal einfach einzugeben:
MessageBox('Hallo') - kann sowas überhaupt funktionieren?

Nein, geht nicht. Die Funktion in TApplication wurde nicht überladen, die drei Parameter sind also Pflich. Um ganz einfach ein Meldungsfenster anzeigen zu können solltest du ShowMessage verwenden.

Zitat von Frankie:

Oder wozu ist die MessageBox gut?

Was meinst du jetzt mit der Frage? Die ist dazu da, eine ganz einfache Schnittstelle mit dem Benutzer herzustellen, wobei der Computer auf eine Frage/Meldung verschiedene Antworten geben kann (mit versch. Buttons)

Greetz
alcaeus

[edit]Zu langsam [/edit]

[Steve]

Du kannst Dir (neben MessageBox quasi) evtl. auch ma MessageDlg anschau'n.. Und wie gesagt OnCloseQuery (-> für Nachfrage vor Schließen des Fensters), damit haste eigentlich alles

Dass Dir MessageBox(...) = 6 wenig sagt, kann ich verstehen, lies in dem anderen Thread, wo Du das her hast, mal weiter, da stehen auch Konstanten, die das bissl vereinfachen

Gruß
Stephan

[alcaeus]

Zitat von Steve:

Dass Dir MessageBox(...) = 6 wenig sagt, kann ich verstehen, lies in dem anderen Thread, wo Du das her hast, mal weiter, da stehen auch Konstanten, die das bissl vereinfachen

Oder wir können auch sehr einfach auf die Delphi OH verweisen. Da steht alles ja noch besser drin.

Greetz
alcaeus

[Frankie]

Application.MessageBox('Programm Beenden?', 'Tital', 36) = 6 Also 'Programm Beenden?' ist die Frage und 'Tital' ist ja die Überschrifft von diesem ganzen Kasten. Aber was bedeutet das 36 und das =6?

Muss bei MessageBox eigentlich immer Application. vorstehen?

[Sebastian Nintemann]

Hallo Frankie, außerdem würde ich statt der numerischen Werte (hier 6 und 36) immer die Konstanten nehmen, mit den Zahlen kann man ja so nichts anfangen. In der OH steht z.B. folgendes:

Zitat:

IDYES 6 Der Benutzer hat auf Ja geklickt.

Du kannst die 6 also durch IDYES ersetzen und kriegst auch gleich beim Lesen des Codes eine Ahnung was er bedeutet.

Viele Grüße, Sebastian

//EDIT

Zitat:

Aber was bedeutet das 36 und das =6?

Das meinte ich
Die 6 ist der Rückgabewert der Funktion wenn der Benutzer auf "Ja" geklickt hat. Dafür gibt es die Konstante IDYES, wie in der Hilfe beschrieben.
Man sollte also schreiben:

Application.MessageBox('Programm Beenden?', 'Tital', MB_YESNO) = IDYES Viele Grüße, Sebastian

[Interceptor]

Die Ideallösung für dein Problem sähe folgendermaßen aus:

Schreib ins OnCloseQuery Ereignis deiner Mainform folgendes:

Delphi-Quellcode:

    CanClose := MessageDlg('Wirklich beenden?',
      mtConfirmation,
      [mbYes, mbNo],
      0) = mrYes;

Mfg, Interceptor

[Luckie]

Das sind Werte für Konstanten. Und nicht um sonst gibt es seöbige, damit nach später noch weiß, was die Zahlen bedeuten. Und in der Delphi Hilfe, wie schon von meinem Vorposter gesagt, findest du alle konstenten, die du mit or verknüpfen kannst.

Das TApplication musst du voranstellen, wenn du die VCl Kapsleung von der API Funktion Messagebox benutzen willst, ansonsten benutzt Delphi eben die entsprechende API-Funktion.