Enter-tast i editbox?

Tags:    delphi

Hej Udviklere

Hvordan laver jeg en "genvej", så når jeg trykker på enter i en editbox, henvises der til en button?
Jeg har prøvet med flg:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=chr(13) then
Button1Click(Sender);
end;

Det virker da også som det skal, men jeg får en irriterende windows ding lyd samtidig med jeg trykker på enter.

Er der nogen der kan hjælpe?

Mvh

Martin



3 svar postet i denne tråd vises herunder
3 indlæg har modtaget i alt 4 karma
Sorter efter stemmer Sorter efter dato
Hej Udviklere

Hvordan laver jeg en "genvej", så når jeg trykker på enter i en editbox, henvises der til en button?
Jeg har prøvet med flg:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=chr(13) then
Button1Click(Sender);
end;

Det virker da også som det skal, men jeg får en irriterende windows ding lyd samtidig med jeg trykker på enter.

Er der nogen der kan hjælpe?

Mvh

Martin


procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
Begin
Key := #0; //intet beep
Button1Click(Sender);
End;
end;

Mvh,

Thomas Nielsen



Hej, prøv følgende:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key = VK_RETURN then
Button1Click(Sender);
end;





Hej Udviklere

Hvordan laver jeg en "genvej", så når jeg trykker på enter i en editbox, henvises der til en button?
Jeg har prøvet med flg:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=chr(13) then
Button1Click(Sender);
end;

Det virker da også som det skal, men jeg får en irriterende windows ding lyd samtidig med jeg trykker på enter.

Er der nogen der kan hjælpe?

Mvh

Martin


Prøv dette:

<pre>begin
if key = VK_RETURN then
begin
Button1Click(Sender);
end;</pre>
---
Mvh. ESH
www.friserverplads.dk/eshkok



t