Cannot cancel Enter key press on TEdit

[leduyquang753]

I am making an expression parser with an input box (TEdit) that when a mistake is present in the expression, the caret moves to where it is. So I hook OnKeyPress to the TEdit:

Code: Pascal  [Select][+][-]

1. procedure TMainWindow.ExpressionKeyPress(Sender: TObject; var Key: char);
2. begin
3.   if key = #13 then begin
4.     self.calculateIt; // This moves the caret when an error happens.
5.     key := #0; // Supposed to cancel the key press.
6.   end;
7. end;

When an erroneous expression is entered, the caret is seen to be moved to the mistake's location, however shortly after, the whole text in the box is selected, which indicates the Enter key was not canceled, despite having the code to do so.

I tried these workarounds:

• Hooking an additional OnKeyDown event to cancel the key.
• Setting TForm.KeyPreview to true.

None of them worked.

Am I doing something wrong or is there a bug in LCL/Windows OS?

[Thaddy]

I tried these workarounds:

• Hooking an additional OnKeyDown event to cancel the key.
• Setting TForm.KeyPreview to true.

None of them worked.

Am I doing something wrong or is there a bug in LCL/Windows OS?

Try using OnKeyUp, because only then you can evaluate correctly. (This is a very common error)

[Bart]

Use OnEditingDone for that (it is fired when user presses Enter or when user leaves the control).

Bart

[Thaddy]

Use OnEditingDone for that (it is fired when user presses Enter or when user leaves the control).

Bart

No.

[jamie]

I assume you set "Autofocus" := False ?

[leduyquang753]

Try using OnKeyUp, because only then you can evaluate correctly. (This is a very common error)

Oh, the key release event is also triggered. You made my day, thank you.