Вверх ↑
Этот топик читают: Гость
Ответов: 16884
Рейтинг: 1239
#31: 2010-05-02 10:09:32 ЛС | профиль | цитата
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)])
}


карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 3349
Рейтинг: 233
#32: 2010-05-02 20:17:52 ЛС | профиль | цитата
А так пробовали?
code_18056.txt
карма: 1

0
файлы: 1code_18056.txt [1KB] [225]
Ответов: 1379
Рейтинг: 86
#33: 2010-05-02 20:22:49 ЛС | профиль | цитата
Ivann, у тебя работает после полного ввода. а на примерах выше есть сама маска строки сразу +у тебя можно вводить сколько хочешь.
Но как вариант подойдет.
карма: 0

0
Ответов: 3349
Рейтинг: 233
#34: 2010-05-02 21:11:30 ЛС | профиль | цитата
Могу подправить
------------ Дoбавленo в 20.43:
Вот так
Add(Edit,4902751,238,189)
{
Left=90
Top=40
Width=185
Text="8 ("
Point(onKillFocus)
Point(doPosition)
link(onChange,13826405:doLength,[])
}
Add(StrCat,8335133,448,189)
{
Str2=") "
link(onStrCat,11465704:doWork1,[(493,195)])
link(Str1,2430236:Var1,[(454,177)(433,177)])
}
Add(Length,13826405,294,189)
{
link(onLength,5685982:doEvent1,[])
}
Add(If_else,9010320,385,189)
{
Op2=Integer(6)
link(onTrue,8335133:doStrCat,[])
}
Add(StrCat,12380988,448,238)
{
Str2="-"
link(onStrCat,11465704:doWork2,[])
link(Str1,2430236:Var3,[(454,230)])
}
Add(If_else,7454393,385,238)
{
Op2=Integer(11)
link(onTrue,12380988:doStrCat,[])
}
Add(Hub,5685982,336,189)
{
OutCount=3
link(onEvent1,9010320:doCompare,[])
link(onEvent2,7454393:doCompare,[(368,202)(368,244)])
link(onEvent3,6549444:doCompare,[(363,209)(363,286)])
}
Add(GetDataEx,2430236,427,225)
{
Angle=3
link(Data,4902751:Text,[(244,230)])
}
Add(HubEx,11465704,489,238)
{
Angle=1
link(onEvent,3816351:doWork1,[])
}
Add(If_else,6549444,385,280)
{
Op2=Integer(14)
link(onTrue,9999496:doStrCat,[])
}
Add(StrCat,9999496,448,280)
{
Str2="-"
link(onStrCat,3816351:doWork2,[])
link(Str1,2430236:Var2,[(454,257)(433,257)])
}
Add(HubEx,3816351,489,280)
{
Angle=1
link(onEvent,2468463:doEvent1,[(493,334)(108,334)(108,202)])
}
Add(Length,15055715,161,203)
{
link(onLength,4902751:doPosition,[])
}
Add(Hub,2468463,126,196)
{
link(onEvent1,4902751:doText2,[])
link(onEvent2,15055715:doLength,[])
}


------------ Дoбавленo в 21.11:
Так лучше.
Add(MainForm,2953706,21,105)
{
}
Add(Edit,4902751,196,189)
{
Left=90
Top=40
Width=185
Text="8 ("
Point(onKillFocus)
Point(doPosition)
link(onChange,12957080:doEvent1,[])
}
Add(StrCat,8335133,462,189)
{
Str2=") "
link(onStrCat,11465704:doWork1,[(507,195)])
link(Str1,2430236:Var1,[(468,177)(447,177)])
}
Add(Length,13826405,301,189)
{
link(onLength,5685982:doEvent1,[])
}
Add(If_else,9010320,399,189)
{
Op2=Integer(6)
link(onTrue,8335133:doStrCat,[])
}
Add(StrCat,12380988,462,238)
{
Str2="-"
link(onStrCat,11465704:doWork2,[])
link(Str1,2430236:Var3,[(468,230)])
}
Add(If_else,7454393,399,238)
{
Op2=Integer(11)
link(onTrue,12380988:doStrCat,[])
}
Add(Hub,5685982,350,189)
{
OutCount=3
link(onEvent1,9010320:doCompare,[])
link(onEvent2,7454393:doCompare,[(382,202)(382,244)])
link(onEvent3,6549444:doCompare,[(377,209)(377,286)])
}
Add(GetDataEx,2430236,441,225)
{
Angle=3
link(Data,9149645:Var3,[])
}
Add(HubEx,11465704,503,238)
{
Angle=1
link(onEvent,3816351:doWork1,[])
}
Add(If_else,6549444,399,280)
{
Op2=Integer(14)
link(onTrue,9999496:doStrCat,[])
}
Add(StrCat,9999496,462,280)
{
Str2="-"
link(onStrCat,3816351:doWork2,[])
link(Str1,2430236:Var2,[(468,275)(447,275)])
}
Add(HubEx,3816351,503,280)
{
Angle=1
link(onEvent,1542054:doWork1,[])
}
Add(Length,15055715,133,203)
{
link(onLength,4902751:doPosition,[])
}
Add(Hub,2468463,91,196)
{
link(onEvent1,4902751:doText2,[])
link(onEvent2,15055715:doLength,[])
}
Add(Delete,13693509,196,308)
{
Position=18
Count=1
link(onDelete,1542054:doWork2,[])
link(Str,9149645:Var2,[])
}
Add(GetDataEx,9149645,196,225)
{
link(Data,4902751:Text,[])
}
Add(Hub,12957080,245,189)
{
link(onEvent1,13826405:doLength,[])
link(onEvent2,13693509:doDelete,[(276,202)(276,262)(177,262)(177,314)])
}
Add(HubEx,1542054,503,308)
{
Angle=1
link(onEvent,2468463:doEvent1,[(507,346)(53,346)(53,202)])
}


карма: 1

0
34
Сообщение
...
Прикрепленные файлы
(файлы не залиты)