做一个计算器的程序，其中用退格删最后一个字符的代码是：   
  Edit1.SetFocus;   
  Edit1.SelStart   :=   Length(Edit1.Text);   
  Edit1.Perform(WM_CHAR,   VK_BACK,0);

但没看懂？哪位能给解释一下，这段代码是如何实现退格功能的。谢了。

[求助] 各位论坛朋友们请问Delphi与SQL 两者之间要怎么连接啊....?????
比如说要开发一个数据库,delphi作为开发平台..SQL作为后台....那两者要如何连接啊....???/

引用:

原帖由 [bold][underline]城镇农民[/underline][/bold] 于 2007-12-10 12:13 发表 [url=http://bbs.bc-cn.net/redirect.php?goto=findpost&pid=1141001&ptid=191510][/url]
做一个计算器的程序，其中用退格删最后一个字符的代码是：   
Edit1.SetFocus;  //將光標定位在EDIT1控件中
Edit1.SelStart   :=   Length(Edit1.Text); //設置光標初始位置在EDIT1文本的最后    
Edit1.Perform(WM_CHAR,   VK_BACK,0);//實現backspace的功能，按一下鍵就刪除一個字符
但没看懂？哪位能给解释一下，这段代码是如何 ...

[[italic] 本帖最后由 sky_yang_sky 于 2007-12-10 17:12 编辑 [/italic]]