Question

delphi按钮实现退格功能

比如我原本光标定义在edit1的字符之间，我想点击button1后，实现键盘上的backspace按键的功能，就是删除该光标前面一个字符，本人实现不能，关键在于焦点问题以及如何按钮实现按键功能，望解答

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text := Copy(Edit1.Text,0,Length(Edit1.Text)-1);
Edit1.SetFocus;
Edit1.SelStart := Length(Edit1.Text);
end;
这只是实现了那种效果.但不是用键盘上的backspace按键功能

追问

这个是只能删除最后一个数字的，这个我知道，我想实现的是删除之前光标所在位置的前一个字符，不知道可行不

Answer 2

把edit1的AutoSelect属性设为False

procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.SetFocus;
keybd_event(VK_BACK,0,0,0);
end;

Answer 3

我记得有个sendKey的api 。