Was mache ich mit dem QuestionDlg falsch?

[AlexII]

Hallo,

ich habe folgenden QuestionDlg. Eigentlich nichts besonderes, aber wenn ich die Meldung ganz normal mit dem roten X-Button, ober rechts, schließe erscheint die Showmessage - "Ja"... das darf doch nicht sein, diese ist nur dann auszugeben, wenn auf Button Yes geklickt wurde. Ist das ein Bug von Lazarus?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if QuestionDlg('Eine Meldung', 'Hier der Text...',
  mtInformation, [mrYes, 'ShowMessage zeigen', mrOk, 'Ok'], 0) = mrYes then
  ShowMessage('Ja');
end;

[Klaus01]

.. und wenn Du auf mrOk überprüfst?
mtInformation, [mrYes, 'ShowMessage zeigen', mrOk, 'Ok'], 0) = mrOk Grüße
Klaus

[AlexII]

Zitat von Klaus01:

.. und wenn Du auf mrOk überprüfst?
mtInformation, [mrYes, 'ShowMessage zeigen', mrOk, 'Ok'], 0) = mrOk Grüße
Klaus

Oh.. tatsächlich, mit Ok geht alles richtig... hm... wohl ein Bug, oder? Muss es ma melden.