如何將光標移動到文本的末尾（Delphi）？</p> <p>現在，我怎樣才能將光標移動到文本的結尾：

Question

這是我的代碼使用SendMessage功能填補一個TextBox？

Answer 1

如果你真的想與信息做到這一點看看：

1. EM_SETSEL
2. EM_EXSETSEL

也有你要編輯的完整參考：

http://msdn.microsoft.com/en-us/library/ff485923%28v=VS.85%29.aspx

在代碼（沒有消息），你會做這樣的事情：

Edit1.SelLength := 0; 
Edit1.SelStart := 0; // set caret before first character 
... 
Edit1.SelStart := 1; // set caret before second character 
... 
Edit1.SelStart := Length(Edit1.Text) // set caret after the last character 

隨着消息：

SendMessage(h1, EM_SETSEL, Length(C), Length(C)); 

Answer 2

我覺得你的代碼是錯誤的。你必須使用「EM_SETSEL」參數。我的問題與此代碼解決：

//Set a value for external textbox 
    SendMessage(h1, WM_SETTEXT, 0, Integer(PChar(C))); 
    //move the cursor to end of the textbox(editbox,field,...) 
    SendMessage(h1, EM_SETSEL, length(C), length(C)); 

謝謝您，反正:)