MessageDlg mit falschem Default

[himitsu]

schön bunt...

Wir haben einen fast farbenblinden Entwickler in unserem Team.




Aber egal wie bunt ... sowas gravierendes versteckt man IMHO niemals hinter viel anderem Code.




Hmmm, OK bei Ja/Nein könnte man automatisch beim Abbrechen das Nein wählen,
aber was macht der bei anderen Konstellationen wie ( [Ja] [Alles ja] ) ?

[Jasocul]

Zitat:

Zitat von Redeemer (Beitrag 1413061)

Folgender Code funktioniert zwar in XE2, bringt einen aber in vorherigen Versionen in große Schwierigkeiten, wenn der Nutzer auf die Idee kommt, Esc zu drücken oder auf X zu klicken und sich wundert, warum alle Dateien weg sind.

Delphi-Quellcode:

if MessageDlg('Möchten Sie alle Dateien auf ihrem Computer löschen?', mtWarning, mbYesNo, 0) = mrNo then Exit;
LöscheAlleDateien();

Da ich andere Erfahrungen gemacht habe, habe ich das gerade einfach mal geprüft.
Was du schreibst, stimmt nicht!
Wer das [X] auswählt, bekommt ein mrCancel! Auch in XE2.

Allerdings war ich verblüfft, dass ein ESC ein mrNo liefert. Das ist auch nicht zwangsläufig das korrekte/erwünschte Ergebnis.