Windows geräusch wegmachen

[Dani]

Ändert es irgendwas, wenn du statt OnKeyUp OnKeyDown nimmst? Desweiteren gibt's da diese praktischen Konstanten für Enter, F1-F12 usw...

Delphi-Quellcode:

procedure TForm1.SearchEditKeyDown(Sender: TObject; var Key: Word; 
  Shift: TShiftState); 
begin 
     if key = VK_RETURN then 
     begin 
       SearchButton.Click; 
     end; 
end;

Das erste, was ich nach einer Windows-Installaion tue, ist das Soundschema "keine akustischen Signale" einzustellen