Запрещение ввода символов.

← →
Dima-k17 © (2002-06-02 16:23) [0]

Как запретить ввод любых символов за исключением разрешённых (в моём случае это 0 и 1) в динамически созданном Edit???

← →
Korona © (2002-06-02 16:35) [1]

Нужно обрабатывать onChange

← →
Song © (2002-06-02 16:36) [2]

Также как и в компоненте зарегистрировать процедуру на событие onKeyPress или onKeyDown Вашего динамическм созданного TEdit

← →
Dima-k17 © (2002-06-02 16:55) [3]

Прошу прощения, но я нмкогда не работал с динамически созданным Edit, нельзя бы какой-нить примерчик написать.... Можно на e-mail.

With TEdit.Create(Form1) Do
Begin
Parent:=Form1;
onKeyDown:=EditKeyAnalyze;
// Другие свойства и события
End;

Теперь пишем обработчик:

procedure TForm1.EditKeyAnalyze(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
IF not Key in [Ord("0"),Ord("1")] then Key:=0;
end;

Также не забудем упомняуть нашу ф-ию в описании класса.

Запрещение ввода символов. Найти похожие ветки