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

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

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

---

← →
Song ©   (2002-06-02 17:22) [4]

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;

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

---

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

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



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