选择状态时,如何使光标停留在前面?

Edit1.Text   :=   'Edit1';  
  Edit1.SelStart   :=   3;  
  Edit1.SelLenght   :=   3;  
  //执行完后:'it1'将处于选择状态,光标停留在后面  
  //是否能将使光标停留在前面?  
  //就象在Edit1中按:  
  //Home  
  //SHIFT+  
  //Left  
  //Left  
  //Left  
  //SHIFT- 问题点数：100、回复次数：10Top

1 楼zswang（伴水清清)(专家门诊清洁工）回复于 2000-12-06 23:17:00 得分 0

    ┌───┐  
  ed┃ｉｔ１│  
      └───┘Top

2 楼Kingron（单身走我路……）回复于 2000-12-07 09:29:00 得分 20

关注Top

3 楼zswang（伴水清清)(专家门诊清洁工）回复于 2000-12-08 20:19:00 得分 0

很难吗？Top

4 楼zswang（伴水清清)(专家门诊清洁工）回复于 2000-12-08 22:38:00 得分 0

真的很难吗？   Top

5 楼lzzqqq（Jonersen）回复于 2000-12-08 22:57:00 得分 40

试一下（如果行的话，别记了给俺点分呀！，嘻嘻！！）：  
  procedure   TForm1.Button1Click(Sender:   TObject);  
  begin  
      edit1.SetFocus;  
      edit1.SelStart   :=0;  
  end;Top

6 楼zswang（伴水清清)(专家门诊清洁工）回复于 2000-12-08 23:13:00 得分 0

//zswang微笑的对lzzqqq说  
  嘻嘻、不行  
  ■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■  
  ■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■  
  ■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■  
  ■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■  
  ■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■□■■■■  
  ■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■□■■■■  
  ■■■■■■□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□■□■■■■  
  ■■■■■■□□□□□□□□□□□□□□■■■■■■■■■■■□□□□□□□□□■□■■■■  
  ■■■■■■□□□□□□□□□□□□□□■■■■■■■■■■■□□□□□□□□□■□■■■■  
  ■■■■■■□□■■■■■□□□□□□■■□■■■■■■□■■□□□□□□□□□■□■■■■  
  ■■■■■■□□■□□□□□□□□□□■■■■□■■□□□■■□□□□□□□□□■□■■■■  
  ■■■■■■□□■□□□□□□□□□□■■■■□■■■■□■■□□□□□□□□□■□■■■■  
  ■■■■■■□□■□□□□□□□■■■■■□■□□■■■□■■□□□□□□□□□■□■■■■  
  ■■■■■■□□■■■■□□□■□□□■■□■□■■■■□■■□□□□□□□□□■□■■■■  
  ■■■■■■□□■□□□□□□■□□□■■□■□■■■■□■■□□□□□□□□□■□■■■■  
  ■■■■■■□□■□□□□□□■□□□■■□■□■■■■□■■□□□□□□□□□■□■■■■  
  ■■■■■■□□■□□□□□□■□□□■■□■□■■■■□■■□□□□□□□□□■□■■■■  
  ■■■■■■□□■■■■■□□□■■■■■□■■□■■■□■■□□□□□□□□□■□■■■■  
  ■■■■■■□□□□□□□□□□□□□□■■■■■■■■■■■□□□□□□□□□■□■■■■  
  ■■■■■■□□□□□□□□□□□□□□■■■■■■■■■■■□□□□□□□□□■□■■■■  
  ■■■■■■□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□■□■■■■  
  ■■■■■■□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□■□■■■■  
  ■■■■■■□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□■□■■■■  
  ■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■□■■■■  
  ■■■■□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□□■■■■  
  ■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■  
  ■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■  
  ■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■  
  ■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■  
  ■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■  
   
   
  Top

7 楼iforever（iforever）回复于 2000-12-09 10:10:00 得分 40

With   edtTest   do  
  begin  
      SetFocus;  
      SelStart   =   5;  
      SelLength   =   -3;  
  end;Top

8 楼iforever（iforever）回复于 2000-12-09 10:10:00 得分 0

With   edtTest   do  
  begin  
      SetFocus;  
      SelStart   :=   5;  
      SelLength   :=   -3;  
  end;Top

9 楼zswang（伴水清清)(专家门诊清洁工）回复于 2000-12-10 14:57:00 得分 0

to   iforever:  
      可是光标停留在后面呀！Top

10 楼zswang（伴水清清)(专家门诊清洁工）回复于 2001-04-23 14:37:00 得分 0

模拟按键就可以搞定Top

相关问题

• 光标停留
• edit1
• left

• 帖主：zswang
• Kingron
• lzzqqq
• iforever

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载