Komisches Geräusch ebi Edit1KeyDown

[Green]

ich hab folgendes in KeyDown eines Edits:

Delphi-Quellcode:

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if shift = [ssCtrl] then
    if key = ord('K') then begin
      TEdit(Sender).Text := TEdit(Sender).Text + #3;
      TEdit(Sender).SelStart:=length(TEdit(Sender).text);
      end;
  if key = VK_RETURN then
    Button1Click(Sender);
end;

und immer wenn ich zum beispiel Strg + K oder Enter drücke kommt so ein Geräusch, wie der Warnton von Win wenn n fehler kommt, kann mir jemand erklären wie ich des abstell??

[EDatabaseError]

imho diw win töne in der akustik abstellen.

ich kenn das und würde auch gern wissen wie das weggeht...

[Khabarakh]

Einfach Key am Ende auf #0 setzen.
[add]Natürlich nur, wenn so ein "Sonderzeichen" aufgetreten ist.[/add]

[EDatabaseError]

nein geht leider nicht.

[SirThornberry]

das geht schon, allerdings muss das ins OnKeyPress und nicht ins OnKeyDown

[EDatabaseError]

jo jetzt ist beim enter der ton weg aber das edit nimmt keinen text mehr

[Green]

ääähm is ja auch logisch... wenn ich auf #0 setz dann kommt natürlich keine taste mehr an... toll ^^ hauptsache er nimmt meine Enter... nein Scherz
hat jemand ne idee was ich jetzt machen soll? is auf dauer nit soooo toll

[EDatabaseError]

ja if Ord(key) = 13 then:
mach das zeug und setz auf null

ja so geht's

[SirThornberry]

und wenn du key nicht erst casten willst dann gleich so (im OnKeyPress)

Delphi-Quellcode:

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

[Green]

Also wenn ich das so hab:

Delphi-Quellcode:

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if shift = [ssCtrl] then
    if key = ord('K') then begin
      TEdit(Sender).Text      := TEdit(Sender).Text + #3;
      TEdit(Sender).SelStart  := length(TEdit(Sender).text);
      key := Ord(#0);
      end;
  if key = VK_RETURN then begin
    Button1Click(Sender);
    key := Ord(#0);
  end;
end;

dann geht das immer noch nit...
und ich muss KeyDown nehmen