设置光标的位置

 edt1.SelStart := Length(edt1.Text);
 edt1.SelLength := length(edt1.Text);

 

虚拟键盘的点击事件

//1、操作的事件

procedure TForm1.JPSR(s:String);
var
  i: integer;
  p: string;
begin
  if s='Del' then
  begin
    i := Length(edt1.Text);
    i := i-1;
    edt1.Text := copy(edt1.Text,1,i);
  end
  else
  begin
    edt1.Text := edt1.Text + s;
  end;
  edt1.SelStart := Length(edt1.Text);
  edt1.SelLength := length(edt1.Text);
end;

2、//模拟删除最后一个字节

procedure TForm1.lbl3Click(Sender: TObject);
var
  s: string;
begin
  s := 'Del';
  JPSR(s);
end;

3、//输入字节字节

procedure TForm1.lbl1Click(Sender: TObject);
var
  s: string;
begin
  s := '1';
  JPSR(s);
end;
————————————————

原文链接：https://blog.csdn.net/xiongmao000738/article/details/6804500