Windows geräusch wegmachen

[m0sch3r]

Hi

beim ausfühlen eines Editfeldes, wenn der user die entertaste drückt soll ein ButtonOnClick eregnis ausgelöst werden.

Delphi-Quellcode:

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

Klappt einwandfrei..aber.. es kommt jedes mal dieses windows geräusch wenn eine operation verweigert wird (hört sich so an...).


Kann mann diese Unsinnigkeit irgentwie bekämpfen...!?

[SirThornberry]

du musst einfach die taste verwerfen, desweiteren hast du wohl das "begin-end" vergessen

Delphi-Quellcode:

procedure TForm1.SearchEditKeyUp(Sender: TObject; var Key: Word; 
  Shift: TShiftState); 
begin 
     if key = 13 then
     begin
       form1.SearchButtonClick(self); 
       key := #0;
       exit; //ist eignetlich überflüßig da die funktion ja schon am ende ist und nichts mehr hinter dem exit steht - also machs einfach weg.
     end;
end;

[m0sch3r]

die Raute nimmt er nicht an..

[Fehler] HauptUnit.pas(1222): Inkompatible Typen: 'Word' und 'Char'


Das geräusch bleibt immer noch...!!!

[Chegga]

Hi,

es muss auch

Delphi-Quellcode:

procedure TForm1.SearchEditKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); 
begin 
  If key = #13 then key := #0;
end;

heißen.

MfG Marc

[m0sch3r]

[quote="m0sch3r"]die Raute '#' nimmt er nicht an..

[Fehler] HauptUnit.pas(1222): Inkompatible Typen: 'Word' und 'Char'

quote]

[Chegga]

Hi,

du musst irgend etwas anderes falsch machen. :zwinker:
Mein Code klappt( :!: ), ohne wenn und aber! :mrgreen:

Zeige mal bitte deinen Code.

MfG Marc

[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;

[b0nze]

Beide Rauten wegmachen? ==> Key: Word; ist nicht OnKeyPress

b0nze

€dit... tooo late

[Chegga]

Hi,

Zitat:

Zitat von b0nze

Beide Rauten wegmachen? ==> Key: Word; ist nicht OnKeyPress

b0nze

€dit... tooo late

Ich depp! :wink:
Ich habe die ganze Zeit mit OnKeyPress gedacht. :wall:
Ich weiß allerdings nicht, wie das bei KeyUp ist.
Wenn du nur

Delphi-Quellcode:

If key = 13 then key := 0;

machst, dann kommt der Piepton immernoch. :roll:

MfG Marc

P.S.: Mache einfach deine Lautsprecher aus. :lol:

[smart]

Du kannst es auch so machen:

Delphi-Quellcode:

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
Var   Mgs: TMsg;
begin
       If Key = 13 Then
   begin
         PeekMessage(Mgs, 0, WM_CHAR, WM_CHAR, PM_REMOVE);
         form1.SearchButtonClick(self);
   end;
end;

[m0sch3r]

P.S.: Mache einfach deine Lautsprecher aus.


könnte man in die istalationsanleitung schreiben...:)))))))

[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 :mrgreen:

[smart]

Der Ton von Windows kommt immer beim KeyDown, also musst er da auch ausgeschaltete werden und nicht in KeyUp. Außerdem muss man bevor man ein Key loslässt zuvor drücken, oder?

[m0sch3r]

Wundert mich das keiner das problemm hatte....

[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?

André

[m0sch3r]

wenn man sich im editfeld befindet und die Enter taste drückt, befor man sie los läst..

[MagicAndre1981]

@m0sch3r
Ich habe es mit deinem Quellcode probiert, aber kein Geräausch gehört.
Komisch alle anderen (Osterhasis) haben es, nur ich nicht. :gruebel:

André

[SirThornberry]

der ton kommt nicht wenn du das ganze ins onkeypress machst (dann aber auch mit #)

[Dani]

Zitat:

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.

[Khabarakh]

Zitat:

Zitat von Dani

Zitat:

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 :wink: .

[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:

Zitat von Khabarakh

Zitat:

Zitat von Dani

Zitat:

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 :wink: .

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