edit的问题，可能比较奇怪

Question

请问怎么实现下面的功能？
edit中已经输入有字符了将光标定位在固定位置之后输入字符会覆盖原来已经有的字符而不是插入在原有字符前面。

Answer 1

呵呵.肯定是覆盖啊
你既然把光标都给定位在上面了,就算是你不定位,EDIT.TEXT="".也肯定是会覆盖的!~

Answer 2

在Edit的KeyPress事件中增加以下代码即可实现楼主的要求:procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if TEdit(Sender).SelLength < 1 then TEdit(Sender).SelLength := 1;
end;

Answer 3

jadeluo(秀峰)正解，谢谢你的帮助