application.Messagebox Problem

[Uwe Raabe]

Zitat von 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;

Sicher nicht! Du solltest mal ordentlich einrücken, dann siehst du vielleicht das fehlende begin .

Delphi-Quellcode:

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 begin
  Clientdataset1.cancel;
  form1.show;
  image10.BringToFront;
  form2.Close;
  Leerefelder(true);
end;

[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.

[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;

[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.

[DeddyH]

BTW:

Zitat:

Delphi-Quellcode:

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 begin
  Clientdataset1.cancel;
  form1.show;
  image10.BringToFront;
  form2.Close;
  Leerefelder(true);
end;

-->

Delphi-Quellcode:

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

Wer ganz faul ist (so wie ich), der kann dann auch begin und end weglassen, sofern er ordentlich einrückt.

[Sir Rufo]

Meine Einrückungen (per Code-Formatter) sehen so aus

Delphi-Quellcode:

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 
  begin
    Clientdataset1.cancel;
    form1.show;
    image10.BringToFront;
    form2.Close;
    Leerefelder(true);
  end;

oder die andere Variante

Delphi-Quellcode:

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

oder eben ohne die (jetzt nicht mehr benötigten begin end Blöcke)

Delphi-Quellcode:

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

Der Orginal-Code hätte mit der Formatierung so ausgesehen:

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;

In Kombination mit dem CnPack schreien einen solche Fehler direkt an