Pling bei Focuswechsel

[NoGAD]

Zitat von BerndS:

Das Pling sollte verschwinden, wenn man auch KeyPress behandelt.
Etwas so:

Delphi-Quellcode:

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

Das war die Lösung, die geholfen hat!

Vielen Dank

[himitsu]

Grund: Das Pling kommt beim Drücken der Taste ... OnKeyDown und OnKeyPress sind Drück-Ereignisse, während OnKeyUp erst beim Loslassen passiert.
OnKeyDown ist noch vor OnKeyPress und dort ein Key:=0 bricht somit noch etwas früher ab, aber ebenfalls noch vor dem Pling.