Вверх ↑
Этот топик читают: Гость
Ответов: 41
Рейтинг: 1
#1: 2014-08-09 16:37:04 ЛС | профиль | цитата
Поле ввода, в котором все буквы заглавные, и после каждых 5 символов автоматически вставлялось тире... Как такое сделать?
карма: 0

0
Ответов: 824
Рейтинг: 138
#2: 2014-08-09 17:09:32 ЛС | профиль | цитата
Разбей поле на несколько отдельных полей
code_34127.txt
карма: 1

0
файлы: 1code_34127.txt [2.5KB] [245]
Ответов: 1536
Рейтинг: 176
#3: 2014-08-09 17:19:39 ЛС | профиль | цитата
BVA11,
Add(MainForm,7357346,63,119)
{
Width=553
}
Add(Edit,4582363,238,112)
{
Left=30
Top=20
Width=400
Text="----"
MaxLenField=29
Point(doPosition)
Point(Position)
link(onChange,4898186:doReplace,[])
}
Add(StrCase,13746603,133,119)
{
Type=1
link(onModify,4582363:doText2,[])
link(Str,11734672:Var1,[(139,107)])
}
Add(Insert,12321793,420,119)
{
SubStr="-"
link(onInsert,2524316:doWork1,[(471,125)(471,60)(353,60)])
link(Str,11734672:Var3,[(426,107)])
}
Add(Replace,4898186,287,112)
{
SubStr="-"
link(onReplace,6483386:doEvent1,[])
}
Add(Hub,6483386,329,112)
{
OutCount=3
link(onEvent1,2524316:doWork3,[(353,118)])
link(onEvent2,14405866:doFor,[])
link(onEvent3,1837020:doLength,[(353,132)(353,151)(184,151)(184,167)])
}
Add(GetDataEx,11734672,371,102)
{
link(Data,10296676:Value,[])
}
Add(Memory,10296676,371,63)
{
}
Add(HubEx,2524316,349,63)
{
link(onEvent,10296676:doValue,[])
}
Add(Length,1837020,196,161)
{
link(onLength,5215938:doCalc,[])
}
Add(MathParse,5215938,238,161)
{
MathStr="(((%1=5)or(%1=10)or(%1=15)or(%1=20))*1)+%2"
ResultType=0
link(onResult,4582363:doPosition,[(284,167)(284,204)(175,204)(175,132)])
link(X2,4582363:Position,[])
}
Add(For,14405866,371,119)
{
Start=6
End=24
Step=6
link(onEvent,12321793:doInsert,[])
link(onStop,13746603:doModify,[(414,132)(414,216)(121,216)(121,125)])
}
Подправил, оптимизировал.
карма: 1
Не так страшна ошибка, как опасность её не заметить.

0
Ответов: 41
Рейтинг: 1
#4: 2014-08-09 17:45:29 ЛС | профиль | цитата
sashaoli писал(а):
Разбей поле на несколько отдельных полей

Благодарю вас, но как поступить с тире после каждых 5 символов... Это обязательно
------------ Дoбавленo в 17.45:
В общем мне нужна копия поля ввода регистрационного ключа как при установке Windows XP
карма: 0

0
Ответов: 824
Рейтинг: 138
#5: 2014-08-09 17:52:59 ЛС | профиль | цитата
Смотрите внимательно пример:
Поле ограниченно 5-ю символами.
После ввода каждого символа формируется строка, где собственно и вставляются символы "тире"("Минус").
карма: 1

0
Ответов: 1536
Рейтинг: 176
#6: 2014-08-09 18:04:53 ЛС | профиль | цитата
BVA11, смотри мой пример.
карма: 1
Не так страшна ошибка, как опасность её не заметить.

0
Ответов: 41
Рейтинг: 1
#7: 2014-08-09 18:20:51 ЛС | профиль | цитата
sashaoli писал(а):
Поле ограниченно 5-ю символами.

У меня выдает ошибку, что параметра MaxLenField нет в компоненте Edit!
карма: 0

0
Ответов: 1536
Рейтинг: 176
#8: 2014-08-09 18:32:24 ЛС | профиль | цитата
BVA11, тебе нужно обновить компанентную базу. Смотри ссылку от CriDos
карма: 1
Не так страшна ошибка, как опасность её не заметить.

0
Ответов: 41
Рейтинг: 1
#9: 2014-08-10 20:11:41 ЛС | профиль | цитата
ser_davkin писал(а):
BVA11,
код

Спасибо
карма: 0

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