Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.03.28;
Скачать: CL | DM;

Вниз

OnKeyPress не работает   Найти похожие ветки 

 
alless ©   (2004-03-11 17:36) [0]

День добрый. Появилась проблема - создаю компонент, наследника от TEdit, для которого определяю событие OnKeyPress, в котором проверяется ввод только цифр.
В конструкторе моего компонента пишу:
onKeyPress:=KeyPress;// KeyPress моя процедура
1. Ставлю компонент на форму и запускаю приложение, при вводе в TEdit- е контроль на ввод не выполняется, можно вводить и буквы.
2. Создаю компонент в RunTime - тогда все работает нормально, контроль выполняется.
Подскажите плз. в чем может быть ошибка.
Заранее благодарен.


 
Юрий Зотов ©   (2004-03-11 17:42) [1]

> alless ©   (11.03.04 17:36)  

Не надо обрабатывать событие, оставьте его пользователю компонента. Метод KeyPress уже имеется у предка - заместите его и там делайте, что нужно.

И имейте в виду, что юзер может вставлять текст из буфера обмена.


 
WebErr ©   (2004-03-11 17:48) [2]


> Юрий Зотов ©   (11.03.04 17:42) [1]

Имеется в виду:

TWinControl.KeyPress

который можно перегрузить

procedure KeyPress(var Key: Char); override;


 
alless ©   (2004-03-11 17:49) [3]

Я обнаружил что в 1 даже Create не срабатывается :((
А в 2 все работет

2 Юрий Зотов ©   (11.03.04 17:42) [1]
менял, не помогает


 
Юрий Зотов ©   (2004-03-11 17:52) [4]

> alless ©   (11.03.04 17:49) [3]

Так не бывает. Вернее бывает, но только если криво сделано. Вы override, часом, не забыли ли?


 
alless ©   (2004-03-11 17:56) [5]

2 Юрий Зотов ©   (11.03.04 17:52) [4]
Забыл. Заработало.Спасибо.



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

Текущий архив: 2004.03.28;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.023 c
1-1078831472
BPK
2004-03-09 14:24
2004.03.28
Как определять абстрактные методы?


14-1078046402
vidiv
2004-02-29 12:20
2004.03.28
Еще один маленький эффектик!


1-1078331972
Zelius
2004-03-03 19:39
2004.03.28
Русский язык на компе без русского языка...


6-1073621638
Hooch
2004-01-09 07:13
2004.03.28
Outlook Express


1-1078394851
Романов Р.В.
2004-03-04 13:07
2004.03.28
TLabel на TToolBar