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

как разрешить пользователю вводить в Edit только цифры и запятую   Найти похожие ветки 

← →
_Dimitry ©   (2003-06-27 10:18) [0]

Помогите пожалуйста - сто раз делал а вот с утра переклинило
как разрешить юзеру вводить в едит только 0123456789,
на OnChange вешаю обработчик в котором смотрю что в строке
так OnChange сам себя и вызывает :((

---

← →
Bel ©   (2003-06-27 10:23) [1]

Обрабатывай OnKeyPress.

---

← →
Lord Warlock ©   (2003-06-27 10:46) [2]

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in ["0".."9",DecimalSeparator,#8]) then
Key:=#0;
end;

---

← →
Александр из Минска ©   (2003-06-27 12:34) [3]

> Lord Warlock

А при вставке текста из буфера??? Это же не KeyPress! Если вставить "123qwe123"?

---

← →
ghg ©   (2003-06-27 13:16) [4]

в кладовке был edit
который все это как раз реализует,

---

← →
ghg ©   (2003-06-27 13:23) [5]

не в кладовке нет
если надо стучи в асю и в мыло
пришлю исходник (не мой, где0-то взял не помню где, но работает)

---

← →
Song ©   (2003-06-27 15:23) [6]

2Александр из Минска © (27.06.03 12:34)
>>А при вставке текста из буфера??? Это же не KeyPress! Если вставить "123qwe123"?

TEdit.onChange

---

← →
McSimm2   (2003-06-27 15:47) [7]

проверять onchange

---

← →
BillyJeans ©   (2003-06-27 15:50) [8]

а не KeyDown?

---

← →
mrcat ©   (2003-06-27 15:56) [9]

>Lord Warlock © (27.06.03 10:46)

если разрешить DecimalSeparator, то прийдется отслеживать, что б не получилось что-то вида: "46,456,23,1245,,,,,,678910"

---

← →
ghg ©   (2003-06-27 16:06) [10]

>mrcat © (27.06.03 15:56)

во-во

---

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

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



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