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?

markieren

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.

Was mache ich mit dem QuestionDlg falsch?

Was mache ich mit dem QuestionDlg falsch?

AW: Was mache ich mit dem QuestionDlg falsch?

AW: Was mache ich mit dem QuestionDlg falsch?

Forumregeln

Klaus01 Registriert seit: 30. Nov 2005 Ort: München 5.755 Beiträge Delphi 10.4 Sydney	#2 AW: Was mache ich mit dem QuestionDlg falsch? 14. Apr 2014, 08:44 .. und wenn Du auf mrOk überprüfst? mtInformation, [mrYes, 'ShowMessage zeigen', mrOk, 'Ok'], 0) = mrOk Grüße Klaus Klaus
	Zitat

AlexII Registriert seit: 28. Apr 2008 1.717 Beiträge FreePascal / Lazarus	#3 AW: Was mache ich mit dem QuestionDlg falsch? 14. Apr 2014, 09:56 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. Bin Hobbyprogrammierer! Meine Fragen beziehen sich meistens auf Lazarus!
	Zitat