AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

MessageDlg mit falschem Default

Ein Thema von himitsu · begonnen am 29. Jun 2018 · letzter Beitrag vom 13. Sep 2018
Antwort Antwort
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.549 Beiträge
 
Delphi 12 Athens
 
#1

AW: MessageDlg mit falschem Default

  Alt 3. Jul 2018, 14:58
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}
Ein Therapeut entspricht 1024 Gigapeut.
  Mit Zitat antworten Zitat
Redeemer

Registriert seit: 19. Jan 2009
Ort: Kirchlinteln (LK Verden)
1.133 Beiträge
 
Delphi 2009 Professional
 
#2

AW: MessageDlg mit falschem Default

  Alt 12. Sep 2018, 19:44
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.
Janni
2005 PE, 2009 PA, XE2 PA
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.549 Beiträge
 
Delphi 12 Athens
 
#3

AW: MessageDlg mit falschem Default

  Alt 12. Sep 2018, 20:02
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.
Ein Therapeut entspricht 1024 Gigapeut.

Geändert von himitsu (12. Sep 2018 um 20:09 Uhr)
  Mit Zitat antworten Zitat
Redeemer

Registriert seit: 19. Jan 2009
Ort: Kirchlinteln (LK Verden)
1.133 Beiträge
 
Delphi 2009 Professional
 
#4

AW: MessageDlg mit falschem Default

  Alt 12. Sep 2018, 20:48
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.
Janni
2005 PE, 2009 PA, XE2 PA
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.549 Beiträge
 
Delphi 12 Athens
 
#5

AW: MessageDlg mit falschem Default

  Alt 12. Sep 2018, 21:28
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] ) ?
Ein Therapeut entspricht 1024 Gigapeut.

Geändert von himitsu (12. Sep 2018 um 21:32 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von Jasocul
Jasocul

Registriert seit: 22. Sep 2004
Ort: Delmenhorst
1.375 Beiträge
 
Delphi 11 Alexandria
 
#6

AW: MessageDlg mit falschem Default

  Alt 13. Sep 2018, 06:48
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.
Peter
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 06:33 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz