Application.Messagebox erzeugt Standardton

[jaenicke]

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

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

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

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;

[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.

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


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

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?