如何用perform()实现 backspace功能？

Question

如题，可能还有别的方法，请高手指教，谢谢！！

Answer 1

firetoucher(风焱) 兄：
  安你的方法做了，提示下面的错误，请再次指教！
[Error] Unit_warehouse_io_iu.pas(538): Undeclared identifier: 'WM_KEYPRESS'

Answer 2

DBEdit1的字段类型是decimal型的，目的是当向DBEdit1中输入两个小数点是报错，并且将刚输入的第二个小数点删掉，思路好像麻烦一些，请指教！procedure TForm_warehouse_io_iu.DBEdit1Change(Sender: TObject);
begin
  with (sender as TDBEdit) do
    begin
      if text <> '' then
      try
        strtofloat(text);
      except
        on EConvertError do
          begin
            application.MessageBox('请输入有效数字','提示',mb_ok);
            perform(wm_keypress,vk_delete,0);
            setfocus;
          end;
      end;
    end;
end;