Форум » [x]Harbour » @ a,b SAY ... GET - нестандартные вопросы » Ответить
@ a,b SAY ... GET - нестандартные вопросы
Sergy: Добрый день Чет я застрял или туплю - есть программа:[pre2]#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[/pre2] Фокус между GET полями переключается кнопками F1 .. F3, а ввести ничего нельзя до тех пор, пока стрелками/табуляцией в него не попадешь... Чего не хватает ? PS: Где-бы вообще почитать поподробнее про эти get/getlist объекты и "нестандартное" управление ими ? Спасибо.
Ответов - 0
полная версия страницы