Page 1 of 1
Position cursor within textbox
Posted: Wed Aug 07, 2019 1:20 pm
by Dermot
I wish to be able to display text in a textbox, and then position the cursor at the end of the that text, so that any further text entered by the user would then be added at the end.
Re: Position cursor within textbox
Posted: Thu Aug 08, 2019 8:08 am
by Dermot
I should have added that I have no problem with the display aspect, as I have been using LBB for years, and have developed a number of commercial programs. It is merely the cursor placement I am interested in, analagous to the texteditor command - print #handle, "!select column row" ;
I am not aware of such a command for a textbox
Re: Position cursor within textbox
Posted: Thu Aug 08, 2019 11:21 am
by guest
Dermot wrote: ↑Wed Aug 07, 2019 1:20 pm
I wish to be able to display text in a textbox, and then position the cursor at the end of the that text, so that any further text entered by the user would then be added at the end.
I'm sure it's quite straightforward using an API call (
EM_SETSEL is the message you need), and somewhere I've got the code to do it. Unfortunately I'm bogged down with other things at the moment and cannot instantly find it.
Re: Position cursor within textbox
Posted: Sat Aug 10, 2019 2:08 pm
by sarmednafi
Richard,
Thank you, Here is the code,
Code: Select all
'Place text in textbox and locate
'caret at end of text.
nomainwin
textbox #1.t, 10,10,100,124
Open "Type" for window as #1
#1 "trapclose [quit]"
#1.t "!setfocus"
#1.t "Hello World"
startpos=len("Hello World")
endpos=startpos
hText=hwnd(#1.t)
calldll #user32, "SendMessageA",_
hText as ulong,_EM_SETSEL as long,_
startpos as long, endpos as long,_
re as long
wait
[quit] close #1:end
Regards
Re: Position cursor within textbox
Posted: Mon Aug 12, 2019 11:04 am
by Dermot
To Sarmednafi
Thanks very much
That works great
Regards
Dermot