создание цифрового TEdit

← →
pirat © (2002-10-14 21:43) [0]

Всем привет!
Понадобилось мне, чтоб в TEdit можно было вводить только цифры. Решил перехватить WM_CHAR и отфильтровать только нужные мне символы. Попробовал подменить WndProc - ноль результатов.
Как же все таки это сделать???

← →
VID © (2002-10-14 21:49) [1]

Вообще-то не грех и TSpinEdit использовать, который лежит на странице Samples :)

← →
down (2002-10-14 21:53) [2]

Подменить KeyDown: если Key <> цифре, то Key := 0

← →
TTCustomDelphiMaster © (2002-10-14 22:06) [3]

SetWindowLong(Edit1.Handle, GWL_STYLE, GetWindowLong(Edit1.Handle, GWL_STYLE) or ES_NUMBER);

← →
Юрий Зотов © (2002-10-14 22:08) [4]

SetWindowLong(Edit1.Handle, GWL_STYLE,
GetWindowLong(Edit1.Handle, GWL_STYLE) or ES_NUMBER);

И все.

← →
Юрий Зотов © (2002-10-14 22:10) [5]

Мы не сговаривались, честное слово!
:о)

Сорри, забыл ведь главное сказать :((
Я в нее хотел вводить числа в формате double/real/float

Так что TSpinEdit не подходит
ES_NUMBER счас проверю
KeyDown вызывается после, а не перед (разве не так?)

Сомнения меня одолевают по поводу вышесказанного - если например, я буду вводить 1234.1234.2.4 - это что, тоже число будет ?

Не проще ли анализировать уже готовое число после ввода, и при неудачной проверке опять возвращаться к вводу ?

← →
PKT (2002-10-15 03:45) [8]

А может быть в лоб проблемку решить ?
Если числа еще и в форме 1Е-10 вводятся, то надо
еще код раздувать
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if not (Key in [#8, DecimalSeparator, "0".."9"]) or ((Key = DecimalSeparator) and (Pos(DecimalSeparator, TEdit(Sender).Text) <> 0)) then Key := #0; end;

создание цифрового TEdit Найти похожие ветки