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