[Sharky]

Привет
Хочу сделать компонент для ввода ip адреса.
Компонент является потомком TEdit, в новом классе заменяю лишь одну функцию

Код:

1 2 3 4 5

procedure TEdit1.CreateParams(var Params: TCreateParams); begin   inherited;   CreateSubClass(Params, WC_IPADDRESS); end;

Но когда кидаю на форму, то тут же можно писать цифры в поля прямо во время дизайна формы. Из-за этого кнопкой delete нельзя удалить компонент с формы - удаляется текст. А если его всё же удалить и создать новый проект - в самой делфи ломается шрифт на System (кажется). Сообщений об ошибках не наблюдал. Помогите найти и исправить ошибки.