![]() |
Создание нового класса на основе родительского (Delphi 6)
У меня есть 7-8 RichEdit'ов. У них одинаковые свойства (ширина, длина, видимость и т.д.). Поэтому хочу создать новый тип NewRichEdit, который будет наследовать все свойства одного из RichEdit'ов, а остальные будут копиями его, дочерними объектами.
Но как создать такой новый тип, родителем которого будет RichEdit? |
после слова type в юните, где ты хочешь разместить описание нового класса просто пишешь например так: TMyRichEdit = class (TRichEdit), он у тебя уже унаследовал все свойства и методы класса родителя, но в паблик секции можно написать еще раз обработчик креэйта, вызвать креэйт родителя, установить все cв-ва и можно юзать.
Вот, держи пример, правда без формы, но ИМХО разберешься.... |
| Часовой пояс GMT +4, время: 00:48. |
Powered by vBulletin® Version 3.8.5
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.