Abfragemenü

[s.h.a.r.k]

Delphi-Quellcode:

var
  MR : TModalResult;
begin
  MR := MessageDlg('Möchten Sie die Änderungen im Dokument1 speichern?', mtInformation, [mbYes, mbNo, mbCancel], 0);
  case MR of
    mrYes : ;
    mrNo : ;
    mrCancel  : ;
  end;
end;

Du kannst mit einem fünfsten Parameter einen Default-Button definiere, der dann den Fokus nach dem Anzeigen des Dialogs hat, z.B.:
MessageDlg('Möchten Sie die Änderungen im Dokument1 speichern?', mtInformation, [mbYes, mbNo, mbCancel], 0, mbYes); Zudem würde ich das ganze mit der Format-Funktion kombinieren, sodass der Message-Text flexibler wird.