MessageDlg liefert falsches Ergebnis

[marc1234]

Hallo ,

folgender Code funktioniert bei mir nicht :

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  nResult : integer;
begin

  nResult := MessageDlg('Änderungen speichern?', mtConfirmation, [mbYes, mbNo, mbCancel], 0);
  case nResult of
    mrYes:    ShowMessage('Yes');
    mrNo:     ShowMessage('No');
    mrCancel: ShowMessage('Cancel');
    else      ShowMessage(IntToStr(nResult));
  end;

end;

Wenn ich im Dialog auf 'Yes' drücke, dann ist der Returnwert 3 (mrAbort) und nicht 6, was mrYes entsprechen würde.
Wenn ich auf 'No' drücke, dann wird 4 (idRetry) zurückgegeben und nicht - wie erwartet - 7 (idNo).
Nur der Cancel-Button funktioniert.

Das Formular ist ein MDIClient.

Kann mir das jemand erklären ?

Gruß
Marcus

[jim_raynor]

Sicher, dass du auch die MessageDlg aus der Unit Dialogs nimmst? Versuchs mal mit Dialogs.MessageDlg.

[marc1234]

Hallo Christian,

Du hattest Recht. In der Unit des Formulars war die Unit QDialogs eingebunden - es wurde also die falsche MsgDialog-Funktion verwendet.

Danke für die schnelle Hilfe.

Gruß
Marcus