KeyDown ohne Sound??!!

covhax · Beiträge: 18

Hi nochmal;D Ich klicke in ein Edit Feld tippe was ein und mit dem unten stehenden Code geschiet dann etwas wenn ich ENTER drücke. Genau dann kommt ein kurzer lauter Sound (habe ihn mal angehängt) durch die Lautsprecher. Hört sich nach einem Windows-Fehler an, es erscheint aber nichts. Delphi 2009 & Win XP.

markieren

Delphi-Quelltext

1:
2:
3:
4:

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key = VK_Return then

Woran liegt das und wie kann ich das verhindern?
Danke!

Moderiert von Gausi: Delphi-Tags hinzugefügt

Einloggen, um Attachments anzusehen!

Gausi · Verfasst: Mo 02.11.09 18:00

Füge in deine Prozedur noch ein key := 0; ein, dann sollte der Sound verschwinden.

_________________
We are, we were and will not be.

covhax · Beiträge: 18

Habe es einmal so:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key = VK_Return then
begin
  key := 0;
  edt_Search.text := edit1.text;

und einmal so:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key = VK_Return then
begin
  edt_Search.text := edit1.text;
  key := 0;

Gemacht. Geht beides nicht

Marc. · Verfasst: Mo 02.11.09 19:26

AFAIK besteht das Problem darin, dass das OnKeyPress-Event, welches für den Beep verantwortlich ist, immer vor dem OnKeyDown-Event aufgerufen wird. Wenn meine These korrekt sein sollte, wird dir wohl nichts anderes übrig bleiben, als die Return-Taste (#13) über das OnKeyPress-Event abzufangen.

covhax · Beiträge: 18

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 then
begin
  key:=#0;

Gleiches Problem

EDIT: Gelöst

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 then
begin
  key:=#0;

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme