Как обычно, прошу помощи...

← →
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;

Song © (13.06.02 12:56)

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

Не всегда :-)

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