Hi

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

markieren

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...!?

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

markieren

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;

die Raute nimmt er nicht an..

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


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

Hi,

es muss auch

markieren

Delphi-Quellcode:

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

heißen.

MfG Marc

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

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

quote]

Hi,

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

Zeige mal bitte deinen Code.

MfG Marc

zusammenfalten · markieren

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;

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

b0nze

€dit... tooo late

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.

Du kannst es auch so machen:

markieren

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;