Hi,

please, try this:

New Visual Project
Drop a TEdit
Drop a TButton and write something on Button1Click event like: ShowMessage('Hello');
Write on Edit1KeyDown event:

begin
 Result := true;
 if (Key = 13) then begin
    Button1Click(nil);
    Result := false;
 end;
end;

Run the app (F9)
Click inside Edit1 and press ENTER:

Nothing happens or sometimes the IDE hangs. Other Key values like 8 (backspace) or 9 (TAB) works perfectly.

-
Sergei Safar

Did you set:

Form1.KeyPreview := True;   // this must be set to True


I don't see it hanging... works as expected.

Walter

Sergei Safar wrote:

> Nothing happens or sometimes the IDE hangs. Other Key values like 8

Most likely this is an infinite loop. Check you haven't put it in the
buttonclick routine too.

--

Matthew Jones

Sergei,

> Nothing happens or sometimes the IDE hangs. Other Key values like 8
(backspace) or 9 (TAB) works perfectly.

There were some discussions of similar issues.
Have a look here e.g.:

http://tinyurl.com/kdtskr9

Uli

Walter,

>>Form1.KeyPreview := True;   // this must be set to True

KeyPreview = true solved the problem.

Thank you all for the replies

Example here:
http://www.shs.eng.br/test/project23.html

--
Sergei Safar