Application.Messagebox erzeugt Standardton

[Delphi-Laie]

Hallo Delphifreunde!

Kann mir jemand verraten, warum (bzw. wie man das beseitigt bekommt) die Delphianweisung

if Application.MessageBox('Eingabeliste komplett leeren?', 'Bestätigungsabfrage', mb_yesno) = id_yes then {blabla} den Windows-Standardton (bei mir die Voreinstellung "ding.wav") aufruft?

Die Messagebox wird aufgerufen und zeigt auch das vom Anklicken der jeweiligen Schaltfläche abhängige gewünschte Verhalten.

Ich fand dazu leider nichts in den beiden großen Delphiforen.

Dank im voraus und Gruß

Delphi-Laie

[DeddyH]

AFAIK ist das eine generelle Einstellung in den Soundoptionen der Systemsteuerung. Ich wüsste nicht, dass man den Beep gezielt im Einzelfall abstellen könnte und konnte auch auf die Schnelle keine diesbezügliche Aussage finden, geschweige denn irgendwelchen Code.

[Delphi-Laie]

Danke!

Das prinzipiell gleiche Problem und die prinzipiell gleiche Antwort (=Nichtlösung) fand ich zwischenzeitlich auch in einem C++-Forum: http://www.c-plusplus.de/forum/12023-full.

Auch if MessageBox(Application.Handle,'Eingabeliste komplett leeren?', 'Bestätigungsabfrage', mb_yesno)=id_yes then ändert nichts, erzeugt also das gleiche Ärgernis.

Was da nur wieder in Windows "rumgemacht" wurde. Als ob Bildschirmbenutzer blind wären.

MessageDlg bringt hingegen das gewünschte Ergebnis. War mir aber entfallen. Wenn man nicht täglich mit bestimmten Dingen zu tun hat, ist es nach Monaten aus dem Gedächtnis schon wieder entschwunden, und man kann sich herrlich lang mit solchen Kinkerlitzchen aufhalten.

Danke nochmal!

[DeddyH]

MessageDlg ist ja auch eine Eigenkreation von Borprisegearcadero, wohingegen MessageBox das API-Original aufruft. Das bedeutet aber auch, dass MessageDlg auf allen Windows-Versionen gleich aussieht, die MessageBox sich dagegen anpasst. Was einem nun lieber ist, sollte jeder für sich entscheiden.

[himitsu]

Wobei die Töne ja volle Absicht sind.

Delphi-Quellcode:

MessageBox(0, 'Normal',   'Caption', MB_OK);
MessageBox(0, 'Error',    'Caption', MB_OK or MB_ICONERROR);
MessageBox(0, 'Question', 'Caption', MB_OK or MB_ICONQUESTION);
MessageBox(0, 'Warning',  'Caption', MB_OK or MB_ICONWARNING);
MessageBox(0, 'Info',     'Caption', MB_OK or MB_ICONINFORMATION);

Wer auch bei den FelphiDialogen diese Töne haben will ... MessageBeep.


Wenn du diese Töne nicht magst, dann stell sie in deinem Windows ab, also dort in der Systemsteuerung.

[jaenicke]

Zitat von Delphi-Laie:

Was da nur wieder in Windows "rumgemacht" wurde. Als ob Bildschirmbenutzer blind wären.

Nur weil ich einen Bildschirm benutze, schaue ich ja nicht unbedingt ständig drauf, schon gar nicht immer auf alle parallel.

Und wer diese Benachrichtigung nicht möchte, kann sich das ja wie schon geschrieben ganz nach Wunsch in Windows konfigurieren...

[Delphi-Laie]

Abschalten kann man das akustische Signal ja nur komplett und dann für das gesamte Windows. Manchmal mag es jedoch vorteilhaft sein.

Die Borländer werden schon ihren Grund gehabt haben, eine Eigenlösung hinterherzuschieben und dabei auf diese überflüssige Störeinlage zu verzichten. Und deren Eigenkreation wird sicher rege benutzt, und das nicht nur aus Unkenntnis der API-Kapselung, sondern es wird sich ganz bewußt dafür entschieden.

[himitsu]

Der Hauptgrund war aber nicht das Beep, sondern vermutlich die Lokalisierung, denn bei der MessageBox kann man nur schwer die Texte der Buttons anpassen.

MessageDialog basiert intern eben auf der ganz normalen VCL, wie TForm, TLabel, TButton usw.
Wenn man auf den etwas tieferen Dialog-Funktionen der VCL ansetzt, dann kan man damit ganz nette Dinge machen, da man vollen Zugriff auf diese Form besitzt.

[p80286]

Zitat von Delphi-Laie:

Abschalten kann man das akustische Signal ja nur komplett und dann für das gesamte Windows. Manchmal mag es jedoch vorteilhaft sein.

Was verstehst Du unter "komplett"?
Zumindestens unter XP gibt es in der Systemsteuerung Sounds und Audiogeräte, da kann man mehr oder weniger geziehlt auswählen, was beept und was nicht.

Gruß
K-H

[himitsu]

Jeden Ton einzeln, aber komplett für alle Anwendungen.