| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Запрещение ввода символов. [D6, WinXP]
Dima-k17 © (2002-06-02 16:23:00)Как запретить ввод любых символов за исключением разрешённых (в моём случае это 0 и 1) в динамически созданном Edit???
Song (2002-06-02 17:22:00) [1]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;
Также не забудем упомняуть нашу ф-ию в описании класса.
Dima-k17 (2002-06-02 16:55:00) [2]Прошу прощения, но я нмкогда не работал с динамически созданным Edit, нельзя бы какой-нить примерчик написать.... Можно на e-mail.
Song (2002-06-02 16:36:00) [3]Также как и в компоненте зарегистрировать процедуру на событие onKeyPress или onKeyDown Вашего динамическм созданного TEdit
Korona (2002-06-02 16:35:00) [4]Нужно обрабатывать onChange
| |
