Windows geräusch wegmachen

[m0sch3r]

Delphi-Quellcode:

procedure TForm1.SearchEditKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
     if key = 13 then
     begin
       key := 0;
       form1.SearchButtonClick(self);

     end;

end;