Edit

← →
*Boba (2004-06-20 17:10) [0]

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

← →
YurikGL © (2004-06-20 17:13) [1]

> *Boba (20.06.04 17:10)

MaskEdit?

← →
*Boba (2004-06-20 17:15) [2]

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

← →
YurikGL © (2004-06-20 17:27) [3]

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

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

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

← →
Palladin © (2004-06-20 17:36) [5]

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

Что-то вроде
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:40) [7]

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

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

Edit Найти похожие ветки