Delphi写简单计算器删掉一个字符的按键怎么实现，求指教！！

nick_ping 发布于 2013-02-28 15:29， 582 次点击

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

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

6 回复

nick_ping2013-02-28 15:30

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

nick_ping2013-02-28 15:53

回复的人好少

wp2319572013-03-01 08:51

我这里测试没问题啊

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

余姚威尔2013-03-01 14:53

人烟稀少···

mayanzs2013-03-01 22:21

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

zjl151594402013-03-04 16:08

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