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;