Ввод телефонного номера.

Вверх ↑

Форумы ПрочееВвод телефонного номера. ← Ctrl12 3Ctrl →

Этот топик читают: Гость

Ответов: 200

Рейтинг: 5

#1: 2010-04-21 18:06:36 ЛС | профиль | цитата

Подскажите пожалуйста, можно ли уменьшить схему?
code_17877.txt

карма: 0

файлы: 1

code_17877.txt [2.7KB] [238]

Ответов: 1379

Рейтинг: 86

#2: 2010-04-21 18:48:31 ЛС | профиль | цитата

Убрал "костыли"
code_17878.txt

карма: 0

файлы: 1

code_17878.txt [1.6KB] [221]

Ответов: 1328

Рейтинг: 69

#3: 2010-04-21 18:55:45 ЛС | профиль | цитата

Я бы убрал возможность ввода символов, по моему так проще всего:

Add(MainForm,2953706,103,252)
{
 link(onCreate,15270323:doSetFocus,[(219,272)(219,270)])
}
Add(Edit,9134287,223,245)
{
 Left=55
 Top=80
 Width=20
 Text="+7"
 DataType=2
}
Add(Edit,15270323,304,250)
{
 Left=90
 Top=80
 Width=25
 Text=""
 DataType=2
 Point(doSetFocus)
 link(onChange,3306392:doLength,[])
}
Add(Label,2118991,371,164)
{
 Left=75
 Top=80
 Width=14
 Height=20
 Color=16777215
 Font=[MS Sans Serif,10,1,0,1]
 Caption="("
 AutoSize=1
 Alignment=2
}
Add(Label,9663243,418,157)
{
 Left=115
 Top=80
 Width=14
 Height=20
 Color=16777215
 Font=[MS Sans Serif,10,1,0,1]
 Caption=")"
 AutoSize=1
 Alignment=2
}
Add(Edit,1327678,448,252)
{
 Left=130
 Top=80
 Width=25
 Text=""
 DataType=2
 Point(doSetFocus)
 link(onChange,15796778:doLength,[])
}
Add(Label,3218565,463,178)
{
 Left=155
 Top=80
 Width=14
 Height=20
 Color=16777215
 Font=[MS Sans Serif,10,1,0,1]
 Caption="-"
 AutoSize=1
 Alignment=2
}
Add(Edit,2785998,600,249)
{
 Left=170
 Top=80
 Width=20
 Text=""
 DataType=2
 Point(doSetFocus)
 link(onChange,12728163:doLength,[(640,255)(640,256)])
}
Add(Label,3432332,503,171)
{
 Left=190
 Top=80
 Width=14
 Height=20
 Color=16777215
 Font=[MS Sans Serif,10,1,0,1]
 Caption="-"
 AutoSize=1
 Alignment=2
}
Add(Edit,9685747,749,250)
{
 Left=205
 Top=80
 Width=20
 Text=""
 DataType=2
 Point(doSetFocus)
 link(onChange,15004000:doLength,[])
}
Add(Length,3306392,353,250)
{
 link(onLength,9940058:doCase,[])
}
Add(Case,9940058,399,250)
{
 Value=Integer(3)
 link(onTrue,1327678:doSetFocus,[(439,263)(439,272)])
}
Add(Length,15796778,500,252)
{
 link(onLength,11942222:doCase,[])
}
Add(Case,11942222,546,252)
{
 Value=Integer(3)
 link(onTrue,2785998:doSetFocus,[(589,265)(589,269)])
}
Add(Length,12728163,647,250)
{
 link(onLength,9705922:doCase,[])
}
Add(Case,9705922,693,250)
{
 Value=Integer(2)
 link(onTrue,9685747:doSetFocus,[(737,263)(737,270)])
}
Add(Length,15004000,794,250)
{
 link(onLength,4149835:doCase,[])
}
Add(Case,4149835,840,250)
{
 Value=Integer(2)
 link(onTrue,16703823:doString,[(903,263)(903,424)(170,424)(170,342)])
}
Add(Message,9919747,518,336)
{
}
Add(FormatStr,16703823,392,336)
{
 DataCount=5
 Mask="%1(%2)%3-%4-%5"
 link(onFString,9919747:doMessage,[])
 link(Str1,9134287:Text,[(398,306)(229,306)])
 link(Str2,15270323:Text,[(405,300)(310,300)])
 link(Str3,1327678:Text,[(412,310)(454,310)])
 link(Str4,2785998:Text,[(419,317)(606,317)])
 link(Str5,9685747:Text,[(426,324)(755,324)])
}

карма: 2

Ответов: 200

Рейтинг: 5

#4: 2010-04-21 19:24:42 ЛС | профиль | цитата

petrocan писал(а):

Убрал "костыли"

Класно!

А как запретить ввод после последнего числа номера?

Konst писал(а):

Я бы убрал возможность ввода символов, по моему так проще всего:

Нужен именно один Edit.

карма: 0

Ответов: 1376

Рейтинг: 197

#5: 2010-04-21 19:33:55 ЛС | профиль | цитата

code_17879.txt

карма: 1

файлы: 1

code_17879.txt [350B] [225]

Ответов: 4641

Рейтинг: 334

#6: 2010-04-21 19:37:37 ЛС | профиль | цитата

Evgen818 писал(а):

А как запретить ввод после последнего числа номера

удалять последний символ...
------------ Дoбавленo в 19.37:


Add(MainForm,2953706,21,105)
{
}
Add(Edit,8034535,98,112)
{
 Left=95
 Top=105
 link(onChange,14186103:doDelete,[])
}
Add(Delete,14186103,154,112)
{
 Position=6
 Count=10
 link(onDelete,8034535:doText2,[(205,118)(205,95)(86,95)(86,125)])
}

карма: 1

Время верстки: %cr_time% Текущее время: %time%

Ответов: 970

Рейтинг: 270

#7: 2010-04-21 19:50:20 ЛС | профиль | цитата

Либо копировать первые символы



Add(Edit,11624808,231,308)
{
 Left=95
 Top=105
 link(onChange,3084660:doCopy,[])
}
Add(Copy,3084660,280,308)
{
 Count=6
 link(onCopy,11624808:doText2,[(325,314)(325,295)(219,295)(219,321)])
}

карма: 0

Ответов: 200

Рейтинг: 5

#8: 2010-04-21 20:11:49 ЛС | профиль | цитата

Всем большое спасибо.

карма: 0

Ответов: 1328

Рейтинг: 69

#9: 2010-04-21 20:22:02 ЛС | профиль | цитата

вот мой вариант ввода номера, правда схема больше, но кроме цифр ничего не введешь
code_17882.txt

карма: 2

файлы: 1

code_17882.txt [3.7KB] [293]

Голосовали:

Evgen818

Ответов: 4641

Рейтинг: 334

#10: 2010-04-21 20:59:28 ЛС | профиль | цитата

вообщем напрашивается компонент EditMask
где то nesco обещал что то подобное выпустить.

карма: 1

Время верстки: %cr_time% Текущее время: %time%

Ответов: 200

Рейтинг: 5

#11: 2010-04-21 22:04:43 ЛС | профиль | цитата

Ravilr писал(а):

вообщем напрашивается компонент EditMask

ООООЧень напрашивается!

карма: 0

Разработчик

Ответов: 26163

Рейтинг: 2127

#12: 2010-04-21 22:15:40 ЛС | профиль | цитата

Ravilr писал(а):

где то nesco обещал что то подобное выпустить

В упор не помню я такого, первый раз слышу о таком компоненте, даже, не знаю, что он должен делать и как работать.

карма: 22

Ответов: 200

Рейтинг: 5

#13: 2010-04-21 22:21:56 ЛС | профиль | цитата

Я вот это нашел

EditMask ограничивает набор символов, который пользователь может вводить в элементе управления редактированием по маске
При вводе недопустимого символа последний не будет воспринят и не появится. Поскольку свойство EditMask — строка, ему можно присвоить строку символов, представляющую допустимые символы, которые должны воспринимать редактирование по маске.

карма: 0