请问如何实现键值转换？

Question

前辈：我想在edit中，按del键就等于按退格键，却老失败不知为何？代码如下：procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
  if key ='46' then
  begin
   key:='8';
  end;end;

Answer 1

假如你要控制的是edit1，在窗体上放一个ApplicationEvents组件，并在onmessage中使用下面代码来截获消息procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin
   if (msg.hwnd = Edit1.Handle) and (msg.message=WM_KEYDOWN) and (msg.wParam=46) then   //
   begin
      Msg.wParam := 8;
   end;
end;

Answer 2

前辈：我把edit的属性修改后成功！原来是限制edit只能输入1各字节
谢

Answer 3

注意msg.hwnd = Edit1.Handle，你不要写成edit2了。