在把焦点置于maskedit中时，怎样可以把焦点定位于maskedit的某一位置啊~~急

Question

procedure TForm1.MaskEdit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (符合固定焦点的条件) then
  if (Key = vk_left)or(Key = Vk_right) then
  begin
    Key := 0;
  end;
end;

Answer 1

比如要放置的位置为第三个字符后,我们用如下语句
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  maskedit1.AutoSelect:=false;
  maskedit1.SelStart:=3;
  maskedit1.SetFocus;
end;

Answer 2

还真是这样的啊,
为什么要用这样子用那个MASKEDIT呀

Answer 3

procedure TForm1.MaskEdit1Click(Sender: TObject);
begin
     maskedit1.SelStart:=4//4是你想要的位置
end;
procedure TForm1.MaskEdit1Enter(Sender: TObject);
begin
     maskedit1.SelStart:=4
end;