Ich bin mir sicher, dass ging mal, aber gerade bemerkt, dass es nicht mehr geht.
Und ich kann mir eigentlich nicht vorstellen, dass es wirklich kaputt sein sollte, ohne dass es einer gemerkt hat...
Delphi XE + Windows Server 2016 mit aktiven Themes (10.2 teste ich heute abend auch mal),
also intern geht es auf
TTaskMessageDialog. (nicht die selbstgebauten
VCL-TForm aka
TMessageForm /
CreateMessageDialog)
Die ersten beiden Fragen sollten den [NEIN]-Button aktiviert haben, aber es ist [JA], was bei [Leerzeichen] und [Enter] nun zu Fehlern führt.
Delphi-Quellcode:
if oneonly then
R := MessageDlg(S, mtCustom, [mbYes, mbNo], 0, mbNo)
else
R := MessageDlg(S, mtCustom, [mbYes, mbNo, mbNoToAll, mbYesToAll, mbAbort], 0, mbNo);
case R of
mrAbort:
Abort;
mrYes:
Result := True;
mrYesToAll: begin
YesToAll := MessageDlg('Wirklich "JA" für Alle?', mtCustom, [mbYes, mbNo], 0, mbNo) = mrYes;
Result := True;
end;
mrNoToAll: begin
NoToAll := True;
Result := False;
end;
else {mrNo or [X]}
Exit(False);
end;