Вверх ↑
Ответов: 67
Рейтинг: 0
#1: 2014-11-15 18:13:27 ЛС | профиль | цитата
Леонид писал(а):
Что трудного

Спасибо за пример,плохо ориентируемся в элементах.
Меня как бы более удовлетворяла что программа набирала символы в строку до определённого символа .
Я с вашим примером по экспериментировал вот что у меня получилось, вот только не нашел каким образом
при прохождении определённого символа поле ввода Edit сбрасывалось.
Add(MainForm,2953706,112,154)
{
Width=390
Height=388
}
Add(ListBox,1841137,581,168)
{
Left=55
Top=10
Width=275
Height=255
}
Add(StrMask,1685853,378,161)
{
Mask="*p*"
link(onTrue,6301136:doReplace,[])
link(Str,5359081:Text,[(384,149)(356,149)(356,205)(328,205)])
}
Add(Replace,6301136,434,168)
{
SubStr="p"
link(onReplace,13805531:doEvent1,[(492,174)(492,202)])
}
Add(Edit,5359081,322,161)
{
Left=5
Top=265
Width=345
Text=""
link(onChange,1685853:doCompare,[])
}
Add(Memory,8817351,322,70)
{
link(onData,6799187:doEvent1,[(366,76)(366,86)(219,86)(219,97)])
}
Add(Hub,13805531,518,196)
{
link(onEvent1,8817351:doClear,[(544,202)(544,142)(310,142)(310,83)])
link(onEvent2,1841137:doAdd,[(556,209)(556,174)])
}
Add(Hub,11452267,259,161)
{
InCount=2
link(onEvent1,5359081:doText,[])
}
Add(Hub,6799187,231,91)
{
link(onEvent1,11452267:doEvent2,[(252,97)(252,174)])
link(onEvent2,16367675:doText,[(257,104)(257,132)(177,132)(177,314)])
}
Add(Edit,16367675,224,308)
{
Left=185
Top=150
link(onChange,11452267:doEvent1,[(258,314)(258,167)])
}
Add(InfoTip,2595230,189,273)
{
Info=#17:Это типа COM порт|0:|0:|0:|0:|0:|0:|0:|
Font=[MS Sans Serif,14,1,255,1]
HAlign=0
Width=190
Height=88
}


карма: 1

0
файлы: 1code_34631.txt [569B] [202]