怎样控制EDIT里的光标的位置

Question

Edit1.SetFocus;
  SendMessage(Edit1.Handle,EM_SETSEL,-1,0);

Answer 1

Edit1.SetFocus;
  SendMessage(Edit1.Handle,EM_SETSEL,-1,0);

Answer 2

Edit1.SetFocus;
  SendMessage(Edit1.Handle,EM_SETSEL,-1,0);

Answer 3

例如你要将光标移到第一位
  Edit1.SetFocus;
  Edit1.SelStart:=1;
  Edit1.SelLength:=0;

Answer 4

Edit1.SelStart := Length(Edit1.Text);

Answer 5

CSDN太烂了，我的回复这么就是不好使，还说不能连续回复三次？？  Edit1.SetFocus;
  SendMessage(Edit1.Handle,EM_SETSEL,-1,0);

Answer 6

例如你要将光标移到第二位
  Edit1.SetFocus;
  Edit1.SelStart:=2;
  Edit1.SelLength:=0;

Answer 7

iPos := Pos('我', Edit1.Text);
Edit1.SelStart := iPos + 2;

Answer 8

Edit1.SelStart := Length(Edit1.Text);

Answer 9

Edit1.SelStart := Length(Edit1.Text);

Answer 10

Edit1.SelStart := Length(Edit1.Text);

Answer 11

Edit1.SelStart := Length(Edit1.Text);

Answer 12

Edit1.SelStart := Length(Edit1.Text);

Answer 13

真受不了CSDN了！回复这么慢，又总出错！

Answer 14

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if (Key = 'w') or (Key = 'W') then
  begin
    Key := #0;
    Edit1.SelText := '我';
  end;
end;

Answer 15

原谅大家的疯狂灌水行为，实在是因为提交出错，然后有时候却背后提交上去了。打倒CSDN

Answer 16

Edit1.SetFocus;
Edit1.SelStart:=光标的位置;
Edit1.SelLength:=0;