Problem mit MsgDialog

[bombilein]

Ich führe folgende Anweisungen aus, wenn ich das Programm schließen möchte:

Delphi-Quellcode:

  if(DataObject.bModifiedSincLastSave) then begin
  tmp := MessageDlg(csWarningText, mtConfirmation, [mbYes, mbNo, mbCancel], 0, mbYes);
    case tmp of
      mrYes   : SaveClick(self);  // Speichern
      mrCancel: Result := False; // Anwender will weiterarbeiten
      mrNo    : Result := True;  // Programm darf geschlossen werden
    else ASSERT(b(False));
    end;
  end;

Wenn ich jetzt den Button "Yes" klicke, komme ich in den "else" Fall.
Was läuft da falsch?

[bombilein]

Wie man erkennen kann, verwende ich QDialogs.

Wenn ich nur Dialogs folgendermaßen verwende, geht es einwandfrei:

Delphi-Quellcode:

if MessageDlg('Wollen Sie speichern. ',
      mtConfirmation, [mbYes, mbNo], 0) = mrYes then

Aber wieso geht das mit QDialogs nicht?

[Vjay]

Erstens: Keine Ahnung, da ich QDialogs nicht verwende.

2 Tips hätt ich aber für dich und zwar.

1. Stimmt der Typ der tmp-Variable evtl. nicht ...? Byte statt integer z.B.?

2. Guck welche Werte die Konstanten haben z.B. mrYes und lass dir den Result-Wert anzeigen.
Eventuell brauchst du andere Result-Konstanten, da diese nur für den VCL-Dialog sind??

[bombilein]

zu 1.
tmp ist von Typ Integer

zu 2.
würde ich auch tippen... aber wo finde ich die anderen Konstanten

Ich fand nur mrYes etc.

gruß
scm

[Vjay]

Notfalls guckste dir an was die Funktion als result-werte liefert und bindest die werte halt hardcoded ein, z.B.

Delphi-Quellcode:

case resultDialog of
 1:
 2:
 15:
end;

[semo]

also bei mir funzt es sowohl it QDialogs als auch mit Dialogs.....
habe das wie folgt bei mir getestet:

Code:

procedure TMainForm.Button1Click(Sender: TObject);
var
  tmp: Integer;
begin
 tmp := MessageDlg('test', mtConfirmation, [mbYes, mbNo, mbCancel], 0);
    case tmp of
      mrYes    : ShowMessage('Yes');
      mrCancel : ShowMessage('Cancel');
    else ShowMessage('else');;
    end;
end;