Вверх ↑
Разработчик
Ответов: 26153
Рейтинг: 2127
#1: 2010-05-06 13:14:34 ЛС | профиль | цитата
Вот одна из реализаций отлова фокуса элементов интерфейса и привязка их к индексу

code_18115.txt

------------ Дoбавленo в 13.14:
А можно не парить моск с массивом клавиш и сделать вот так, используя Key-интерфейс формы



Add(MainForm,2953706,203,210)
{
Width=389
Point(onKeyDown)
link(onKeyDown,11831633:doGetIndex,[])
}
Add(StrList,11831633,287,189)
{
@Hint=#12:KeyToMyIndex|
Strings=#2:39|2:37|2:38|2:40|
Point(doGetIndex)
Point(onGetIndex)
link(onGetIndex,16341277:doCalc,[])
AddHint(-121,85,86,13,@Hint)
}
Add(StrList,99913,511,154)
{
Strings=#13:One Memo Left|14:One Memo Right|11:One Memo Up|13:One Memo Down|0:|0:|13:Two Memo Left|14:Two Memo Right|11:Two Memo Up|13:Two Memo Down|
Point(doGetString)
Point(onGetString)
link(onGetString,1341810:doText,[])
}
Add(Label,1341810,567,161)
{
Left=100
Top=235
Width=193
Height=20
Font=[MS Sans Serif,10,1,0,1]
Caption=""
AutoSize=1
Alignment=2
}
Add(InfoTip,4770262,140,147)
{
Info=#18:KeyBoard Interface|
Width=197
Height=151
}
Add(Memo,10911404,287,35)
{
Left=5
Top=5
Width=180
Height=205
Point(onSetFocus)
link(onSetFocus,430789:doWork1,[])
}
Add(Memo,5326158,287,91)
{
Left=190
Top=5
Width=180
Height=205
Point(onSetFocus)
link(onSetFocus,430789:doWork2,[(341,104)(341,55)])
}
Add(ChanelToIndex,430789,364,42)
{
link(onIndex,12467797:doValue,[])
}
Add(MathParse,16341277,413,196)
{
MathStr="%1 + %2*6"
link(onResult,99913:doGetString,[])
link(X2,12467797:Value,[])
}
Add(Memory,12467797,420,42)
{
}

карма: 22

0
файлы: 1code_18115.txt [1.7KB] [207]