Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Edit [D6, D7, Win2k, WinXP]


*Boba ©   (2004-06-20 17:10:00) 

Добрый день всем!
как реализовать следущую фишку?
Мне необходимо чтобы в стандартный Edit можно было бы вводить
токо числа а буквы и символы -,+,=, а также точка и запятая
вводить было нельзя. При этом чтобы работали еще клавиши Del
и Backspace.
Зарание благодарен за ответ.


Palladin   (2004-06-20 17:49:00) [1]

Дело хозяйское...


*Boba   (2004-06-20 17:40:00) [2]

To Palladin:
Cпасибо за вариант но в данном случаи он не подходит :)


YurikGL   (2004-06-20 17:39:00) [3]

Что-то вроде
procedure TFormSborkiNastr.Edit2Change(Sender: TObject);
begin
for i:=1 to length(Edit2.Text) do
 if Edit2.Text in['-','+',...] then delete(Edit2.Text,i,1)

end;


*Boba   (2004-06-20 17:36:00) [4]

Прошу прощения за нескромный вопрос. А нет ли примера
или исходного кода?


Palladin   (2004-06-20 17:36:00) [5]

Проще все позволить и проверять при подтверждении введенных данных.


YurikGL   (2004-06-20 17:27:00) [6]

Тогда ручками отрабатывать событие onchange - удалять запрещенные символы каждый раз и все.


*Boba   (2004-06-20 17:15:00) [7]

Не это не подойдет необходимо с использованием Edit


YurikGL   (2004-06-20 17:13:00) [8]


> *Boba   (20.06.04 17:10)  

MaskEdit?


Наверх

Титульная страница Поиск, карта сайта Написать письмо