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

Вопрос по 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 вся ветка

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



Память: 0.45 MB
Время: 0.017 c