Автор | Сообщение |
|
| |
Пост N: 604
Зарегистрирован: 08.07.06
|
|
Отправлено: 17.02.18 02:04. Заголовок: @ a,b SAY ... GET - нестандартные вопросы
Добрый день Чет я застрял или туплю - есть программа: #include "inkey.ch" FUNC Main() LOCAL cOne := cTwo := cThree := space( 10 ) LOCAL GetList := {} SETKEY( K_F1, { || MyProc1( GetList ) } ) SETKEY( K_F2, { || MyProc2( GetList ) } ) SETKEY( K_F3, { || MyProc3( GetList ) } ) @ 0,0 CLEAR @ 2,2 SAY " cOne" GET cOne @ 3,2 SAY " cTwo" GET cTwo WHEN !EMPTY(cOne) @ 4,2 SAY "cThree" GET cThree READ RETURN NIL * ------------------- * FUNC MyProc1( GetList ) GetActive():KillFocus() GetList[ 1 ]:SetFocus() GetList[ 1 ]:Display() RETURN NIL * ------------------- * FUNC MyProc2( GetList ) GetActive():KillFocus() GetList[ 2 ]:SetFocus() GetList[ 2 ]:Display() RETURN NIL * ------------------- * FUNC MyProc3( GetList ) GetActive():KillFocus() GetList[ 3 ]:SetFocus() GetList[ 3 ]:Display() RETURN NIL Фокус между GET полями переключается кнопками F1 .. F3, а ввести ничего нельзя до тех пор, пока стрелками/табуляцией в него не попадешь... Чего не хватает ? PS: Где-бы вообще почитать поподробнее про эти get/getlist объекты и "нестандартное" управление ими ? Спасибо.
|
|
|
Ответов - 1
[только новые]
|
|
|
| |
Пост N: 30
Зарегистрирован: 30.01.18
|
|
Отправлено: 24.04.24 18:33. Заголовок: Тоже присоединяюсь к..
Тоже присоединяюсь к вопросу. Почему по SetFocus() фокус меняется (поле подсвечивается цветом активного GET), но не происходит переход в него?
|
|
|