Wieso gibt es bei dem Code einen Beep-Ton

[Alallart]

Weiß jemand wieso man bei diesem Code ein Beep, bzw. Bling hört?
Kann man das abstellen?

Delphi-Quellcode:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key = Chr(VK_RETURN) then
    Self.Perform(WM_NEXTDLGCTL, 0, 0);
end;

Eingebettet ist der Code in einem Editfeld. Bei Eingabe von Enter springt der Fokus zum nächsten Element.

[Delphi-Laie]

https://www.swissdelphicenter.ch/en/showcode.php?id=432

[Redeemer]

OnKeyPress ist das falsche Event, da es ausschließlich für Zeichen verwendet werden soll, nicht für Tasten. Für Tasten kann man OnKeyDown oder OnKeyUp verwenden und darin die Taste auf 0 setzen, sodass sie nicht weiter behandelt wird.

[DP-Maintenance]

Dieses Thema wurde am "26. Jan 2019, 12:00 Uhr" von "Luckie" aus dem Forum "Programmieren allgemein" in das Forum "GUI-Design mit VCL / FireMonkey / Common Controls" verschoben.

[Alallart]

Vielen Dank, es funktioniert.