Windows geräusch wegmachen

[SirThornberry]

wie gesagt, wenn man im OnKeyPress key mit #0 ersetzt piept es auch nicht mehr (auch bei denen nicht wo es zur zeit piept)

[Catbytes]

Hallo,

klappt bei mir schon ewig und drei Tage so:

Delphi-Quellcode:

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

So springt er immer auf das nächste Focus-Feld.

Kannst natürlich auch so machen:

Delphi-Quellcode:

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

[MagicAndre1981]

Zitat von Khabarakh:

Zitat von Dani:

Zitat von MagicAndre1981:

Mal so nebenbei.
Ich habe den Code von m0sch3r aus dem ersten Post genommen und ausgeführt, aber dabei kein Geräusch gehört. Wodurch kommt das denn?

Hab mein Sound-Schmema auf "Windows Standard" umstellt, höre aber auch nix. Der gleiche Code. Nanu?!
Vielleicht wird der Ton durch irgendwas in Searchbutton1Click erzeugt.

Neues Projekt (oder Form), Edit draufklatschen, kompilieren, Boxen aufdrehen, Return drücken. Entweder du hast ein zu gut eingestelltes Windows oder du bist taub .

Genau so gemacht und Lautsprecher volle Pulle und NIX passiert bei Return-Taste drücken. JA es ist im KeyUp-Event.
Taub bin ich auch (noch) nicht.

André

[SirThornberry]

früher hatte ich das geräuch auch, entweder es ist durch irgendein ServicePack weg gegangen oder durch irgend ein Programm das ich installiert hab. Hat also nix mit Taub zu tun, wie es allerdings weg geht weiß ich nicht