application.Messagebox Problem

[Natcree]

SO gehts auch nicht

Delphi-Quellcode:

begin
if application.MessageBox('Wollen Sie die Änderungen speichern ?','Hinweis',
MB_YESNO Or MB_ICONEXCLAMATION) = IDYes then
begin
Clientdataset1.post;
form1.show;
image10.BringToFront;
form2.Close;
Leerefelder(true);
end else
Clientdataset1.cancel;
form1.show;
image10.BringToFront;
form2.Close;
Leerefelder(true);
end;

[Perlsau]

Wo kommt eigentlich das ominöse MB_ICONEXCLAMATION her? In der Delphi-Hilfe kann ich nichts davon finden. Nichtsdestoweniger wird bei mir das Programm beendet, wenn ich auf Yes bzw. Ja klicke, ansonsten nicht.

Was genau heißt "es geht nicht"? Wird immer der erste Begin-End-Block durchlaufen, egal was du anklickst?

[Natcree]

wie kann ich ihm denn jetzt noch sagen wenn ich IDNO klicke soll er das andere machen?

[Perlsau]

Ja was jetzt?

Du hast doch nur diese beiden Buttons in deiner Messagebox, oder? Wenn du auf Ja klickst, ergibt das MbYes, wenn du nicht auf Ja klickst, ergibt das nicht (not) MbYes. Daher würde ich die Empfehlung von Uwe Rabe befolgen. Im Übrigen hast du nicht auf meine konkrete Nachfrage, was die Pseudo-Fehlermeldung "geht nicht" genau bedeutet. Du mußt schon genaue Angaben machen, wenn wir dir helfen sollen.

Kleiner Hinweis: Arbeite doch bitte mit Einrückungen, so wird dein Code leichter lesbar und verständlicher.

[p80286]

Zitat von Natcree:

wie kann ich ihm denn jetzt noch sagen wenn ich IDNO klicke soll er das andere machen?

Sei dóch so nett un versuch Perlsau's Frage zu beantworten, mich würde auch interessieren was da passiert. Und wenn Du Deinen Source ein wenig formatierst fällt es den meisten leichter ihn zu verstehen.
Und was Deine Frage angeht, neben if..Then...else gibt es ja noch case Aber bitte, bitte beantworte erst einmal die gestellten Fragen. (Die werden nicht grundlos gestellt!)

Gruß
K-H

[Natcree]

Zitat:

Wo kommt eigentlich das ominöse MB_ICONEXCLAMATION her?

http://www.functionx.com/delphi/msgboxes/messagebox.htm

Zitat:

Was genau heißt "es geht nicht"? Wird immer der erste Begin-End-Block durchlaufen, egal was du anklickst?

Wenn ich nein klicke soll er abrechen und fensterschliessen.

[Natcree]

danke es hat an dem fehlenden begin gelegen.

[Uwe Raabe]

Zitat von Natcree:

danke es hat an dem fehlenden begin gelegen.

Eigentlich hat es an dem fehlenden Cancel gelegen. Beim Navigieren per Next oder Prev wird nämlich implizit ein Post ausgeführt, wenn das DataSet im Edit-Modus ist.

[Perlsau]

Okay, das mit dem MB_ICONEXCLAMATION hat sich ja nun geklärt, damit wird also ein Warn-Icon angezeigt.

Alles das, was dein Programm ausführen soll, wenn du Ja klickst, kommt in den ersten Begin-End-Block, der ausgeführt wird, wenn das Resultat MbOk ist. Dagegen kommt alles das, was dein Programm ausführen soll, wenn du nicht Ja klickst, in den zweiten Begin-End-Block, den sog. Else-Zweig. Wo ist das Problem?

[DateTimeError]

Hier was zum Testen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if MessageBox(Handle, 'Message', 'Caption', mb_YesNo or mb_IconExclamation or
    mb_DefButton1)
    = id_Yes then
  begin
    MessageBox(Handle, 'JA angeklickt', 'Caption', mb_Ok or mb_DefButton1);
    exit
  end;
  MessageBox(Handle, 'NEIN angeklickt', 'Caption', mb_Ok or mb_DefButton1)
end;