开发者

How can I move the cursor to the end of the text (Delphi)?

This is my code 开发者_JAVA技巧to fill a TextBox using the SendMessage function:

  C := 'Hey there';
  SendMessage(h1, WM_SETTEXT, 1, Integer(PChar(C)));

Now, how can I move the cursor to the end of the text?


If you really want to do this with messages take a look at:

  1. EM_SETSEL
  2. EM_EXSETSEL

Also there you have the complete reference for edit:

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

In code (no messages) you would do something like this:

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

With messages:

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


I think your code is wrong . you have to using "EM_SETSEL" parameter . my problem solved with this code :

  //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));

Thank you , anyway :)

0

上一篇:

下一篇:

精彩评论

暂无评论...
验证码 换一张
取 消

最新问答

问答排行榜