MessageDlg mit falschem Default

[himitsu]

Zitat von Uwe Raabe:

Scheint ein Fehler in XE zu sein:

Delphi-Quellcode:

// aus Dialogs.pas in XE
          Default := DlgBtn = DefaultButton;

// aus Vcl.Dialogs.pas in 10.2.3 
          if DlgBtn = DefaultButton then
            Default := True;

Jupp, ist nur ein halber Fehler, denn in CreateMessageDialog (eigene TForm) ist es so, wie im 10.2.3,
aber in der DoTaskMessageDlgPosHelp (TaskDialog-API) ist/war es falsch.

Es läst sich also ganz leicht die fehlerhafte API-Implementation deaktivieren.

Delphi-Quellcode:

// beim Programmstart
{$IF Declared(UseLatestCommonDialogs) and (CompilerVersion < 23)}
  UseLatestCommonDialogs := False;
{$ENDIF}

Allerdings wollen wir einige der anderen neuen Dialoge haben (VerzeichnisAuswahl usw.) und da bei uns sowieso fast alles nochmal weggekapselt ist, habe ich da an den wichtigstens Stellen nun sowas eingebaut.

Delphi-Quellcode:

{$IF CompilerVersion < 23}
// XE-Bugfix für DefaultButtons  https://www.delphipraxis.net/196905-messagedlg-mit-falschem-default.html
SaveULCD := UseLatestCommonDialogs;
try
  if (DefaultBtn in DlgButtons) and (Word(DlgButtons - [DefaultBtn]) > Word([DefaultBtn])) then
    UseLatestCommonDialogs := False;  // nur, wenn Default nicht der "letzte" Button ist
{$IFEND}

// z.B. MessageDlg()

{$IF CompilerVersion < 23}
finally
  UseLatestCommonDialogs := SaveULCD;
end;
{$IFEND}

[Redeemer]

Hier noch ein Beitrag zum Thema „MessageDlg macht komische Dinge bis Delphi XE“ (getestet mit 2009):

Delphi-Quellcode:

case MessageDlg('Ja oder nein?', mtWarning, mbYesNo, 0) of

end;

Wie viele verschiedene TModelResult kann der Nutzer anklicken?

Lösung (Zeile markieren): Drei, nämlich mrYes, mrNo und mrCancel.

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();

Wer also noch mit diesen Versionen unterwegs ist und MessageDlg benutzt: Passt bloß auf! Der CnPack-Designer macht es nämlich auch falsch.

[himitsu]

Zitat von Redeemer:

wenn der Nutzer auf die Idee kommt, Esc zu drücken oder auf X zu klicken und sich wundert,

Darum macht man bei sowas auch immer nur Positivabfragen,
also auf JA prüfen (MessageDlg(...) <> mrYes ), nach welchem auch gefragt wurde, anstatt auf NEIN (MessageDlg(...) in [mrNo, mrCancel, mrAbort] ).

Oder eben ) = mrYes und dieses gefährlich versteckte EXIT entsorgen, für welches jemand gesteinigt werden sollte.



Aber dass auch ESC und [X] ein Ergebnis liefern, das war schon immer so und ist auch so geblieben.

[Redeemer]

Sie liefern aber in neueren Delphis "Nein" und nicht "Abbrechen". Und außerdem nur bei MessageDlg, bei den anderen beiden derartigen Methoden kann das Fenster nicht geschlossen werden.

Mit Exit sehe ich kein Problem, CnPack macht es auch schön bunt, da fällt es auf.

[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 von Redeemer:

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.