Форум » GUI » Как переместить курсор на самый правый символ в GETBOX ? » Ответить
Как переместить курсор на самый правый символ в GETBOX ?
Softlog86: Как сделать чтоб при попадании на поле ввода (GETBOX) - курсор (мигающий) устанавливался на самый правый введенный символ +1 позиция ? Сейчас - если щёлкнуть мышкой - то ввод начинается с того места куда 'щёлкнул' а не с 'конца строки' ...
Ответов - 2
gfilatov2002: Softlog86 пишет: Как сделать чтоб при попадании на поле ввода (GETBOX) В первом приближении мохно сделать, как в примере ниже [pre2] #include "minigui.ch" FUNCTION Main() DEFINE WINDOW WndMain AT 10,10 WIDTH 400 HEIGHT 200; TITLE "test" MAIN DEFINE TIMER t_1 INTERVAL 50 ACTION OnGetboxEnd() @ 10,10 GETBOX Gb1 WIDTH 100 VALUE "test" PICTURE 'XXXXXXXX' ON LOSTFOCUS WndMain.t_1.Enabled := .t. @ 40,10 GETBOX Gb2 WIDTH 100 VALUE "100" PICTURE '9999' ON LOSTFOCUS WndMain.t_1.Enabled := .t. @ 90,10 BUTTONEX Btn1 CAPTION "Ok" WIDTH 60 HEIGHT 28; ACTION msgInfo('Ok') @ 90,160 BUTTONEX Btn2 CAPTION "Cancel" WIDTH 60 HEIGHT 28; ACTION WndMain.Release END WINDOW CENTER WINDOW WndMain ACTIVATE WINDOW WndMain RETURN NIL FUNCTION OnGetboxEnd LOCAL i := GetControlIndex( WndMain.FocusedControl, 'WndMain' ) IF i > 0 .AND. _HMG_aControlType [ i ] == 'GETBOX' _PushKey ( VK_END ) WndMain.t_1.Enabled := .f. ENDIF RETURN NIL [/pre2]
Softlog86: Самое главное нашел ! : ON GOTFOCUS (_PushKey ( VK_END ) ) Только почему-то курсор устанавливается не в конец строки , а в начало .....
полная версия страницы