退格的代码
procedure TForm1.Button18Click(Sender: TObject);
begin
   PostMessage(edit1.Handle,WM_CHAR,VK_BACK,0);
end;
这个一下全部删掉了，只退一个字符要怎么破啊，感激不尽！！！

[ 本帖最后由 nick_ping 于 2013-2-28 15:39 编辑 ]

速求各路好汉支援，感激不尽！！

回复的人好少

我这里测试没问题啊

PostMessage(edit1.Handle,WM_CHAR,VK_BACK,0);

人烟稀少···

被全部删除掉估计是你的edit1中文本被全选了，可以在删除前先取消选择：
   edit1.SelStart:=Length(edit1.Text);
   edit1.SelLength:=1;
然后再
PostMessage(edit1.Handle,WM_CHAR,VK_BACK,0);
就可以了。

edit1.Text:=copy(edit1.Text,1,length(trim(edit1.Text))-1);