Отправляет email-рассылки с помощью сервиса Sendsay

Программирование. Форум !!!

Delphi ООП: Как изменить property?

Аллоха, All!
А я вот щас как сморожу очередную глупость:

Я хочу к компоненту TListView добавить фичу - свойство Visible к
колонкам.
Реализация скрытия уже давно готова, просто решил сделать себе
"красиво" :)

Требуется у TListView изменить в Columns(TListColumns) TListColumn:
Нужно добавить к TListColumn свойство Visible для последующей
проверки.
Вот тут-то и запарка:
Насколько я понимаю нужно во всех изменяемых классах последовательно
заменить упоминание TListColumns на TListColumns_ (мой класс) и
TListColumn на TListColumn_, но я столкнулся с проблемой:
procedure TCustomListView.SetListColumns(Value: TListColumns);
эта процедура описана в private и следовательно в моем модуле я ее не
вижу, а эта процедура как раз property и заведует.
Вопрос: как ее overrid-нуть?

Ответить   Tue, 24 May 2005 00:04:09 +0500 (#372589)

 

Ответы:

Здравствуйте, Александр.

Вы писали 24 мая 2005 г., 1:04:09:


Модуль ComCtrls класс TCustomListView перенеси свойство куда надо, и
откомпиль заново проект.

Ответить   Tue, 24 May 2005 18:04:36 +0600 (#372973)

 

Хаю ду ю ду monah?

Смотрю и вижу, как ты печатаешь умные вещи и дай-ка, думаю,
тоже что-нибудь напечатаю:


Да думал я об этом, и в другом месте мне тоже самое сказали. Эх
некузявый такой ООП получается.... Но видимо придется так и сделать.

Ответить   Tue, 24 May 2005 20:41:17 +0500 (#373139)