MessageDlg und ESCAPE

[tuxhol]

Mit application.message klappt das gaaaanz hervorragend

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  antwort : integer;
begin
  antwort := application.messagebox('Ja oder Nein?','Frage',32+3);
  if antwort=idyes then
    begin
      showmessage('Antwort war ja / Speichern');
    end
  else
  if antwort=idno then
    begin
      showmessage('Antwort war nein / Nicht Speichern');
    end
  else showmessage('Antwort war Abbrechen');
end;

[edit=sakura] [delphi]Tags Mfg, sakura[/edit]