Скачать: CL | DM;

создание цифрового 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]

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

---

← →
pirat ©   (2002-10-14 23:01) [6]

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

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

---

← →
Dr_Mike ©   (2002-10-15 02:13) [7]

Сомнения меня одолевают по поводу вышесказанного - если например, я буду вводить 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;


---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.015 c