Einzelnen Beitrag anzeigen

AlexII

Registriert seit: 28. Apr 2008
1.717 Beiträge
 
FreePascal / Lazarus
 
#1

Was mache ich mit dem QuestionDlg falsch?

  Alt 14. Apr 2014, 09:34
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;
Bin Hobbyprogrammierer! Meine Fragen beziehen sich meistens auf Lazarus!
  Mit Zitat antworten Zitat