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.
Mein Code klappt( ), ohne wenn und aber!

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 von b0nze:

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

b0nze

€dit... tooo late

Ich depp!
Ich habe die ganze Zeit mit OnKeyPress gedacht.
Ich weiß allerdings nicht, wie das bei KeyUp ist.
Wenn du nur
If key = 13 then key := 0; machst, dann kommt der Piepton immernoch.

MfG Marc

P.S.: Mache einfach deine Lautsprecher aus.

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