Форум: "Начинающим";
Текущий архив: 2007.12.02;
Скачать: [xml.tar.bz2];

Вниз

Вопрос по Edit   Найти похожие ветки 

← →
fart   (2007-11-07 15:21) [0]

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

---

← →
Ega23 ©   (2007-11-07 15:23) [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) [2]

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

---

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

Форум: "Начинающим";
Текущий архив: 2007.12.02;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.043 c