Groups | Search | Server Info | Login | Register

Groups > de.comp.lang.delphi.misc > #19208

beep Sound von Windows wenn KeyDown Event gesendet wird -.-

Show all headers | View raw

[Multipart message — attachments visible in raw view] - view raw

Hallo,

ich habe folgenden Codeschnippsel aus meinen Projekt (unte dem Text).
Wenn ich die DBEdit Felder mit der Maus selektiere, dann verhält sich
das Programm so wie es soll.
Wenn ich aber nun die KeyDown1 und KeyDown2 Funktion benutzen möchte,
erhalte ich Beep Sound von Window. Dies ist natürlich mit der Zeit
nervig.
Ich weiss aber nun nicht, wo ich das abstellen kann, bzw. weiss ich
nicht wo der Fehler sein sollte.
Daher meine Frage: wie kann ich die Wiedergabe des Sounds stoppen ?
Ich denke jetzt nicht an die Sound-Einstellungen von Windows selbst.
Vielmehr an Delphi 7.

Vielen Dank für die Hilfe.
Jens Kallup

procedure TForm1.DBEdit1Enter(Sender: TObject); begin DBEdit1.Color :=
clYellow; Table1.Edit; end;

procedure TForm1.DBEdit2Enter(Sender: TObject); begin DBEdit2.Color :=
clYellow; Table1.Edit; end;

procedure TForm1.DBEdit1Exit (Sender: TObject); begin DBEdit1.Color :=
clWhite; Table1.Edit; Table1.Post; end;

procedure TForm1.DBEdit2Exit (Sender: TObject); begin DBEdit2.Color :=
clWhite; Table1.Edit; Table1.Post; end;

procedure TForm1.DBEdit1KeyDown(Sender: TObject; var Key: Word; Shift:
TShiftState);
begin
   if key = VK_RETURN then
   begin
     DataSource1.AutoEdit := true;
     Table1.Edit;
     Table1.Post;
     DBEdit2.SetFocus;
   end;
end;
procedure TForm1.DBEdit2KeyDown(Sender: TObject; var Key: Word; Shift: 
TShiftState);
begin
   if key = VK_RETURN then
   begin
     DataSource1.AutoEdit := true;
     Table1.Edit;
     Table1.Post;
     DBEdit1.SetFocus;
   end;
end;

Back to de.comp.lang.delphi.misc | Previous | Next — Next in thread | Find similar

Thread

beep Sound von Windows wenn KeyDown Event gesendet wird -.- Jens Kallup <kallup.jens@web.de> - 2022-04-08 10:59 +0200
  Re: beep Sound von Windows wenn KeyDown Event gesendet wird -.- Jens Köhler <jkoehl@web.de> - 2022-04-08 16:57 +0200
    Re: beep Sound von Windows wenn KeyDown Event gesendet wird -.- Jens Kallup <kallup.jens@web.de> - 2022-04-08 17:15 +0200
      Re: beep Sound von Windows wenn KeyDown Event gesendet wird -.- Jens Köhler <jkoehl@web.de> - 2022-04-08 18:44 +0200
        Re: beep Sound von Windows wenn KeyDown Event gesendet wird -.- Jens Kallup <kallup.jens@web.de> - 2022-04-08 18:52 +0200
          Re: beep Sound von Windows wenn KeyDown Event gesendet wird -.- Jens Köhler <jkoehl@web.de> - 2022-04-08 21:57 +0200
            Re: beep Sound von Windows wenn KeyDown Event gesendet wird -.- Jens Kallup <kallup.jens@web.de> - 2022-04-09 09:49 +0200
      Re: beep Sound von Windows wenn KeyDown Event gesendet wird -.- Jens Köhler <jkoehl@web.de> - 2022-04-09 16:41 +0200
        Re: beep Sound von Windows wenn KeyDown Event gesendet wird -.- Jens Kallup <kallup.jens@web.de> - 2022-04-09 21:22 +0200
          Re: beep Sound von Windows wenn KeyDown Event gesendet wird -.- Jens Köhler <jkoehl@web.de> - 2022-04-10 09:36 +0200
            Re: beep Sound von Windows wenn KeyDown Event gesendet wird -.- Jens Kallup <kallup.jens@web.de> - 2022-04-10 12:14 +0200
              Re: beep Sound von Windows wenn KeyDown Event gesendet wird -.- Jens Köhler <jkoehl@web.de> - 2022-04-10 15:44 +0200
                Re: beep Sound von Windows wenn KeyDown Event gesendet wird -.- Jens Kallup <kallup.jens@web.de> - 2022-04-10 16:49 +0200
                Re: beep Sound von Windows wenn KeyDown Event gesendet wird -.- Jens Köhler <jkoehl@web.de> - 2022-04-10 17:46 +0200
                Re: beep Sound von Windows wenn KeyDown Event gesendet wird -.- Jens Kallup <kallup.jens@web.de> - 2022-04-10 19:39 +0200
                Re: beep Sound von Windows wenn KeyDown Event gesendet wird -.- Jens Köhler <jkoehl@web.de> - 2022-04-11 17:26 +0200
                Re: beep Sound von Windows wenn KeyDown Event gesendet wird -.- Jens Kallup <kallup.jens@web.de> - 2022-04-11 21:16 +0200
                Re: beep Sound von Windows wenn KeyDown Event gesendet wird -.- Jens Köhler <jkoehl@web.de> - 2022-04-12 17:28 +0200

csiph-web