请问如何在edit框中定位光标位置呢？

Question

在一个文字框入框eidt中，我设定在输入4个字符后系统自动填入一个固定字符，然后光标定位于第五个字后，我如何写代码呢？
　　如输入1995后系统自动在5后加上“-”，光标定位于  1995-  之后.

Answer 1

procedure TForm1.Edit1Change(Sender: TObject);
begin
   if length(edit1.text)=4 then
   begin
     edit1.text := edit1.text + '-';
     edit1.SelStart := 5;
   end;
end;