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

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

Маленькая проблема

ТехникПТО ©   (2005-01-31 15:32:00) 

Есть Edit... событие OnChange.. нужно отследить чтобы значение text было только целые числа(т.е. Integer и подобное) и если не совпадает это условие то менять на нужное... как это сделать?

---

SergP.   (2005-01-31 18:08:00) [1]

Для таких целей предназначен MaskEdit

---

ТехникПТО   (2005-01-31 16:01:00) [2]

пасиб.. выручил :)

---

tolstiak   (2005-01-31 15:48:00) [3]

а если через OnKeyPress?
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in ['0'..'9',#8]) then Key:=#0;
end;
только цифры от 0 до 9.

---

Наверх