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 :D:D
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

[EDatabaseError]

Wie gesagt es geht nur mir KeyPress versuch mal das Akustikprofil auf Keine Töne zu stellen, aber ich denke nicht das es dann geht.

[Union]

Delphi-Quellcode:

Key := 0;
PeekMessage(Msg, 0, WM_CHAR, WM_CHAR, PM_REMOVE);

[Green]

was zur hölle is Msg???

[Union]

Zitat:

Zitat von Green

was zur hölle is Msg???

Das ist keine Hölle sondern:

Delphi-Quellcode:

var
   Msg : TMsg;

Zitat:

Zitat von Delphi Online Hilfe

lpMsg

Points to an MSG structure that contains message information from the Windows-based application queue.

[Green]

cool danke, jetzt gehts ^^