You can also just set Key to #0 as follows:
Code:procedure TForm1.EditKeyPress(Sender:TObject; var Key : Char); begin if Key = #13 then begin // Your processing here Key := #0; end; end;
You can also just set Key to #0 as follows:
Code:procedure TForm1.EditKeyPress(Sender:TObject; var Key : Char); begin if Key = #13 then begin // Your processing here Key := #0; end; end;
- Jeremy
http://www.eonclash.com/
Bookmarks