kamakama писал(а):
nesco, тогда подождем ещё кого нибудьnesco, устанавливает фокус на Edit (щёлкнуть на Edit перед вводом - святое дело - работает автомат
), а ты нет.
Определи Edit.doText2, Edit.ReadOnly->True и всё заработает как ты хотел - проходит только то, что есть в ListBox, независимо - фокус на MainForm или Edit.
------------ Дoбавленo в 10.09:
Add(MainForm,13922532,210,98)
{
Width=186
Height=209
Point(onKeyDown)
Point(doSetFocus)
link(onKeyDown,10828345:doConvert,[])
}
Add(ListBox,3929759,350,77)
{
Left=40
Top=45
Width=95
Height=115
Strings=#1:1|1:2|1:3|1:4|1:5|1:a|
Point(doSelectString)
Point(String)
}
Add(Convertor,10828345,259,119)
{
Mode=4
link(onResult,6969517:doEvent1,[])
}
Add(StrCat,2063222,364,168)
{
link(onStrCat,14819206:doText2,[])
link(Str1,2063222:Result,[(370,156)(352,156)(352,209)(370,209)])
link(Str2,3929759:String,[])
}
Add(Edit,14819206,420,161)
{
Left=10
Top=10
Width=155
Text=""
ReadOnly=0
Point(onKeyDown)
}
Add(Hub,6969517,308,119)
{
OutCount=3
link(onEvent1,3929759:doSelectString,[])
link(onEvent2,2063222:doStrCat,[(339,132)(339,174)])
}
Поиск
Друзья
Администрация