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.