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;