[gelöst] Result von QuestionDialog falsch

[Michl]

Servus,

mir ist eben aufgefallen, dass das Result vom Questiondialog ein Modalresult ist, zurückgegeben wird aber ein TMsgDlgBtn-Result. Sollte das Result in ein Modalresult gewandelt werden oder der Resulttyp angepasst?

Bsp:

Code: Alles auswählen

uses ..., typinfo;
...
procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  i := QuestionDlg('Frage',
                   'Welcher Button?',
                   mtConfirmation,
                   [mbYes, 'Ja', mbNo, 'Nein', mbCancel, 'Abbruch', mbHelp, 'Hilfe'],
                   '');
  Caption := IntToStr(i) + ': ' + GetEnumName(TypeInfo(TMsgDlgBtn), i);
end;

[Edit]So was. Man darf keine TMsgDlgBtn als Parameter übergeben sondern muss schon TModalResult übergeben. Dann passt alles