Application.Messagebox erzeugt Standardton

[Delphi-Laie]

Hallo Delphifreunde!

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

Delphi-Quellcode:

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

Delphi-Quellcode:

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. :angle2:

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:

Zitat von Delphi-Laie (Beitrag 1172030)

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. :shock:

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:

Zitat von Delphi-Laie (Beitrag 1172041)

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. :wink:

[hathor]

Zitat:

Zitat von DeddyH (Beitrag 1172024)

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.

Kann es mit WIN 7 nicht testen: Application.MessageBox ist stumm.

Delphi-Quellcode:

//Beep Off
SystemParametersInfo(SPI_SETBEEP, Word(False), nil, 0);
if Application.MessageBox('Eingabeliste komplett leeren?', 'Bestätigungsabfrage', mb_yesno) = id_yes then BEGIN END;
//Beep On
SystemParametersInfo(SPI_SETBEEP, Word(true), nil, 0);

[jaenicke]

Ich würde es mir doch sehr verbitten, wenn eine Software an solchen systemweiten Einstellungen herumschraubt. :shock:

[hathor]

Man darf natürlich das Einschalten nicht vergessen:

Delphi-Quellcode:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
//Beep On
SystemParametersInfo(SPI_SETBEEP, Word(true), nil, 0);
end;

[Sir Rufo]

Zitat:

Zitat von jaenicke (Beitrag 1172227)

Ich würde es mir doch sehr verbitten, wenn eine Software an solchen systemweiten Einstellungen herumschraubt. :shock:

Ist vor allem witzig, wenn man diese Einstellung bewusst ausgeschaltet hatte und die dann durch ein Programm wieder eingeschaltet werden.

[hathor]

Dann muss man freundlicherweise beim Programmstart den Zustand abfragen und bei Close wiederherstellen.

Delphi-Quellcode:

procedure TForm1.FormShow(Sender: TObject);
var isON : Integer;
begin
isON:=0;
SystemParametersInfo(SPI_GETBEEP,0,isON,0);
Label1.caption:= IntToStr(isON); //0 = off, 1 = on
end;

[DeddyH]

Aber worin liegt der Sinn? Wenn ich als Anwender einstelle, dass es bei einer Fehlermeldung bimmeln soll, dann hat es gefälligst auch zu bimmeln. Das kann doch wohl nicht davon abhängen, ob es den Entwickler stört.

[himitsu]

Sich die alten Einstellungenmerken und dann wieder zurückzusetzen macht ja auch keiner, bzw. der Rücksetzcode wird nicht mehr aufgerufen, da die Fehlerbehandlung vergessen wurde.
Oder das coole Wechselklacken bei IE und Explorer. :thumb:

Nja, das ist wie zu DOS-Zeiten ... Es kann nur einen geben (gleichzeitig), wobei wir das mit Vollbildmetro ja wieder zurückbekommen. :stupid:


Es ist natürlich auch nicht möglich einen eigenen Dialog zu verwenden, wenn man im Programm ein anderes Verhalten benötigt. :roll:

Zitat:

Wenn ich als Anwender einstelle, dass es bei einer Fehlermeldung bimmeln soll, dann hat es gefälligst auch zu bimmeln. Das kann doch wohl nicht davon abhängen, ob es den Entwickler stört.

Genau deswegen gibt es ja globale Standardverhalten, welche der "Benutzer" nach persönlichen Wünschen einstellen kann.

Aber in Zeiten von Skinning und Co. ... Seit wann interessieren da den Programmierer die Wünsche der Endanwender?

[hathor]

Ihr habt wenig Phantasie!

Es gibt Programme, die man im Silent Mode nutzen will, z.B. in der Öffentlichkeit oder nachts, um niemand zu stören.
Es gibt auch Taube, die müssen optisch auf etwas Besonderes hingewiesen werden - da nützt das ganze Ploppen und Bimmeln nichts!

DENKT NICHT IMMER NUR AN EUCH !!!

[Daniel]

Sicherlich mag es diverse Umstände und Gründe geben, die Töne an- oder abzuschalten. Dennoch ist es eine Systemeinstellung - und das völlig zu Recht, da besagte Gründe sehr wahrscheinlich auf alle installierten Anwendungen passen werden. Diese Einstellung nur für eine einzige Anwenung zu ändern scheint ein extrem spezieller Fall zu sein. Aber dieser Hinweis wurde nun hinreichend oft genannt und der Rest liegt nun beim Entwickler.

P.S. Kein Grund, gleich Großbuchstaben und Fettschrift zu nutzen, auch wenn man noch so sehr widersprechen möchte.

[DeddyH]

Zitat:

Zitat von hathor (Beitrag 1172243)

Es gibt Programme, die man im Silent Mode nutzen will, z.B. in der Öffentlichkeit oder nachts, um niemand zu stören.

Wie Daniel schon bemerkte wird dann wohl generell kein Sound wiedergegeben werden (Einstellungssache der Systemoptionen).

Zitat:

Zitat von hathor (Beitrag 1172243)

Es gibt auch Taube, die müssen optisch auf etwas Besonderes hingewiesen werden - da nützt das ganze Ploppen und Bimmeln nichts!

Und wenn es nicht bimmelt, werden Gehörlose aufmerksamer? Niemand hat gesagt, dass man nicht zusätzliche optische Signale verwenden kann/darf/soll, aber etwas hervorzuheben, indem man etwas anderes abschaltet, was der Betreffende sowieso nicht wahrnehmen kann? Dieser Argumentation kann ich nicht folgen, sry.