Создание нового класса на основе родительского (Delphi 6)

[Interceptor]

У меня есть 7-8 RichEdit'ов. У них одинаковые свойства (ширина, длина, видимость и т.д.). Поэтому хочу создать новый тип NewRichEdit, который будет наследовать все свойства одного из RichEdit'ов, а остальные будут копиями его, дочерними объектами.

Но как создать такой новый тип, родителем которого будет RichEdit?

[/7y3uK]

после слова type в юните, где ты хочешь разместить описание нового класса просто пишешь например так: TMyRichEdit = class (TRichEdit), он у тебя уже унаследовал все свойства и методы класса родителя, но в паблик секции можно написать еще раз обработчик креэйта, вызвать креэйт родителя, установить все cв-ва и можно юзать.
Вот, держи пример, правда без формы, но ИМХО разберешься....