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

Как обычно, прошу помощи...   Найти похожие ветки 

← →
QWest   (2002-06-13 10:35) [0]

Здравствуйте мастера.У меня такой вопрос - ната запретить в эдите ввод всех знаков кроме 1 и 2.(Использовать маск эдит не советуют...).

---

← →
Song ©   (2002-06-13 10:38) [1]

TEdit.onKeyDown

---

← →
QWest   (2002-06-13 11:02) [2]

Спасибо, полез разбираться...

---

← →
Виктор Щербаков ©   (2002-06-13 11:07) [3]

Тогда уж
TEdit.OnChange

---

← →
Игорь Шевченко ©   (2002-06-13 11:47) [4]

Если ввод с клавиатуры, то TEdit.OnKeyPress все-таки лучше...

---

← →
Song ©   (2002-06-13 12:56) [5]

2Виктор Щербаков © (13.06.02 11:07)
onChange не подойдёт потому что Key в процедуру не передаётся.

2Игорь Шевченко © (13.06.02 11:47)
>>Если ввод с клавиатуры, то TEdit.OnKeyPress все-таки лучше...

Одинаково с onKeyDown

---

← →
Goblinus   (2002-06-13 13:06) [6]

procedure TForm1.Memo1OnKeyPress(... key: char ...)
begin
if (key <> "1") or (key <> "2") then key:=#0;
end;

---

← →
Игорь Шевченко ©   (2002-06-13 13:08) [7]

Song © (13.06.02 12:56)

> >>Если ввод с клавиатуры, то TEdit.OnKeyPress все-таки лучше...
>
> Одинаково с onKeyDown


Не всегда :-)

---

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

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



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