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

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

Вопрос по Edit [D7, 95/98, XP]

fart ©   (2007-11-07 15:21:00) 

Как  сделать чтобы в Edit  можно было вводить только цифры 1 и 0

---

Ega23   (2007-11-07 15:23:00) [1]

В общем случае - никак.
Точнее - как, но с диким гемором.
самое простое :

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


Но это не спасёт от, например, вставки из буффера.

---

Kolan   (2007-11-07 15:23:00) [2]

Проверярт Keyв одработчике OnKeyPressed

---

Наверх