application.Messagebox Problem

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