AddEdit1.Text:=Trim(AddComboBox1.Text) Trim(AddComboBox2.Text) Trim (AddComboBox3.Text); AddEdit1.SetFocus; addedit1.text:='台北市大安區羅斯福路'整個籃色反白,還要滑鼠點一下 才能在edit, 請問如何讓游標停留在'台北市大安區羅斯福路'之後繼續輸入免在 按一下滑鼠 謝謝

1.

begin
  Edit1.SelStart := 0;
  Edit1.SelLength := Length('台北市大安區羅斯福路');
end;

2.

begin
  Edit1.SelStart := Length('台北市大安區羅斯福路');
  Edit1.SetFocus;
end;

--- 每個人都是一本書

引言: edit1.text:='台北市大安區羅斯福路'; Edit1.SelStart := 0; Edit1.SelLength := Length(edit1.text); showmessage(inttostr(edit1.SelLength)); //值=20 Edit1.SetFocus; 可是整個edit1.text似被為覆置狀態,需要在路的後面點滑鼠左鍵,才能在 {.... 路}的後面繼續輸入資料 如何省去點滑鼠左鍵?直接繼續編輯

Edit1.AutoSelect:=FALSE; Edit1.SetFocus;    僅供參考,歡迎繼續發言

------
︿︿

引言: Edit1.AutoSelect:=FALSE; Edit1.SetFocus; 還是不行 當edit1.setfocus 時 整個edit似被為mark狀態,需要在 (路字)的後面點滑鼠左鍵,才能在{.... 路}的後面繼續輸入資料, 如何setfocus後,游標停在{路}的後面繼續輸入資料,免在按滑鼠左鍵 謝謝

if Edit1.SelLength > 0 then Edit1.SelLength:=0;     Edit1.AutoSelect:=FALSE;    Edit1.SetFocus;    僅供參考,歡迎繼續發言

------
︿︿

引言: Edit1.SelLength := Length(edit1.text); Edit1.SelStart := Length(edit1.text); Edit1.AutoSelect:=FALSE; Edit1.SetFocus; 謝謝可以了