Текущий архив: 2002.06.13;
Скачать: 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 вся ветка
Текущий архив: 2002.06.13;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.037 c
