Потомок TCustomEdit -> ReadOnly

[Dmitry]

Написал такой код:

Код: Выделить всё

TDBEditEx = class(TCustomEdit)
...
public
  property ReadOnly;
end;

Теперь при выполнении m_MyVar.ReadOnly:= true вылетает ошибка.
В чем может быть проблема?

[Naeel Maqsudov]

Какая ошибка возникает? (Код, а лучше текст дословно.)
ВСЕ ОШИБКИ КЛАССИФИЦИРОВАНЫ!
Видимо, ошибка не связана с readonly как таковым.

[Dmitry]

Обошел проблему, заменив родителя на TEdit. А ошибка вылетала самая общая, про некорректную работу с памятью (указателями)

[Naeel Maqsudov]

TCustomEdit как раз и предназначен для создания собственных классов. Уверен, что проблема была не в нем!