Fehlerton deaktivieren

[Van HelF]

hallo,
ich habe in ein memo eine speichern funktion eingebaut, diese wird mit strg + s aufgerufen, nur leider ertönt beim druck dieser kombination
der windows fehlersound, gibt es eine möglichkeit den abzuschalten ?

code :

Delphi-Quellcode:

if (ssCtrl in shift) then if key=83 then
begin
  if defaultsave='' then 
  begin 
    save_text;
    exit;
  end;
end;

[Sunlight7]

Guck Dich mal um, so ein Problem gab's hier vor kurzem erst mit einer TEDit... :dp:

[Nils_13]

Delphi-Quellcode:

if (key = #13) then
  key := #0;

Den musst du jetzt nur noch an deinen Code anpassen.

[dino]

mal eine Zwischenfrage: kann man einen sound vor der soundkarte erkennen und abfangen?

[Van HelF]

Zitat:

Zitat von Nils_13

Delphi-Quellcode:

if (key = #13) then
  key := #0;

Den musst du jetzt nur noch an deinen Code anpassen.

funktioniert leider nicht, da ich das enter auch benötige.

[Nils_13]

Du musst doch am Ende nur Key auf 0 setzen. Ohne Code kann ich dir da nicht helfen.

[Van HelF]

Zitat:

Zitat von Nils_13

Du musst doch am Ende nur Key auf 0 setzen. Ohne Code kann ich dir da nicht helfen.

das habe ich standardmäßig, das das programm konsolenbasierend ist, jedoch kommt der ton trotzdem :gruebel:

[Nils_13]

Hm, poste bitte mal save_text.

[Van HelF]

Zitat:

Zitat von Nils_13

Hm, poste bitte mal save_text.

ich habe gerade eine andere variante ausprobiert
(

Delphi-Quellcode:

function KeyPressed(state: Integer): Boolean
begin
  Result:=GetKeyState(state)<0;
end;

}

in einem neuen projekt, ohne eine andere procedure, jedoch besteht das problem weiterhin, auch wenn ich key auf 0 setze;