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:

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:

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:

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 :oops:[/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 :zwinker:

Gruß
Stephan

[alcaeus]

Zitat:

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 :zwinker:

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

Greetz
alcaeus

[Frankie]

Delphi-Quellcode:

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:

Delphi-Quellcode:

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.

[fkerber]

Hi!

Leserlich sieht das ganze so aus:

Delphi-Quellcode:

if Application.MessageBox('Programm Beenden?', 'Tital', MB_ICONQUSTION + MB_YESNO) = IDYES then 
begin 
  Application.Terminate; 
end;

Dann versteht man es eigentlich auch, oder?


Ciao fkerber

[Luckie]

Da es sich um eine bitweise or-Verknüpfung handelt nicht mit + verknüpfen, sondern mit or.

Und im richtigen Ereignis sieht es so korrekt aus:

Delphi-Quellcode:

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if Application.MessageBox('Anwendung schließen?', 'Projekt1', MB_ICONQUESTION or MB_YESNO) = ID_YES then
    CanClose := True
  else
    CanClose := False;
end;

[fkerber]

Hi!

Warum geht es auch mit + und warum sollte man dann or benutzen?

Eben war noch ein Schreibfehler drin, also hier mal korrekt:

Delphi-Quellcode:

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
 if Application.MessageBox('Programm Beenden?', 'Titel', MB_ICONQUESTION + MB_YESNO) = IDYES then
   CanClose:=true
 else
   CanClose:=false;
end;

Ciao fkerber

[Frankie]

Danke. Hab den entsprechenden Eintrag in der Delphi Hilfe gefunden. THX. :thuimb:

[Sharky]

Zitat:

Zitat von fkerber

...Warum geht es auch mit + und warum sollte man dann or benutzen?....

Weil die Bits zufällig so gesetzt sind das es geht. ;-)

z.B.:

Code:

  MB_YESNO        = 0001 = Dezimal 1
  MB_ICONQUESTION = 0010 = Dezimal 2

Wenn Du das addierst kommt 0011 raus. Du kannst also noch immer prüfen welcher der Beiden werte gesetzt wurde weil jeder aus einem eindeutigen bit besteht.
Aber was machst Du jetzt:

Code:

  MB_YESNO        = 0101 = Dezimal 5
  MB_ICONQUESTION = 0011 = Dezimal 3

Bei der Addition bekommst Du 1010 = Dezimal 8 Jetzt wird es schwer zu prüfen ob die Bits für Button MB_YESNO gesetzt wurden. Genauer gesagt es ist unmöglich ;-)
Bei einer Binären OR-Operation bekommst Du aber:

Code:

   0101
OR 0011
   ----
   0111

Und somit könntest Du es wieder mit einer AND Operation ausmaskieren.

[fkerber]

Hi!

Danke für die Info, Sharky.
Hatte den Quellcode so von Sakura aus dem anderen Thread übernommen.

Ciao fkerber