VirtualTreeView доработка -> Форум на Исходниках.Ру

	Наши проекты: Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту

Здравствуйте, Гость ! [216.73.216.107]

ПРАВИЛА РАЗДЕЛА · FAQ раздела Delphi · Книги по Delphi

Обязательно выделяйте текст программы тегом [сode=pas] ... [/сode]. Для этого используйте кнопку [code=pas] в форме ответа или комбобокс, если нужно вставить код на языке, отличном от Дельфи/Паскаля.

Этот раздел предназначен для вопросов, посвященных разработке компонентов, а также для тестирования собственных бесплатных компонентов с открытым исходным кодом.

Здесь запрещается:
1. Размещать ссылки на какие-либо коммерческие компоненты, реализующие требуемую функциональность.
2. Обсуждать и тестировать коммерческие компоненты или компоненты с закрытым кодом.
3. Давать ссылки на сайты с исходным кодом компонентов. Все тестируемые исходные коды должы быть размещены на сайте ИСХОДНИКИ.RU.

Модераторы: Rouse_, DimaBr

Новое голосование

VirtualTreeView доработка , VirtualTreeView доработка

tarakan1983

Сообщ. #1 , 10.02.23, 14:02

Newbie

Профиль · PM

Рейтинг (т): нет

Здравствуйте, хочу сделать компонент на основе VirtualTreeView.
Конкретнее в классе TVirtualTreeColumn добавить несколько своих property.

TVirtualStringTreeTestFirst = class(TVirtualStringTree)

private

{ Private declarations }

protected

{ Protected declarations }

public

constructor Create(AOwner: TComponent); override;

published

end;

TVirtualStringTree базовый класс, у него TVTHeader, потом TVirtualTreeColumns = class(TCollection) и соответственно сам TVirtualTreeColumn. Как добраться до TVirtualTreeColumn и к существующим property добавить свои?

Profi	Сообщ. #2 , 21.02.23, 14:06
Profi Профиль · PM Поощрения: 5 Dgm Рейтинг (т): 144	А может просто Helper на TVirtualTreeColumn повесить? Сообщение отредактировано: Profi - 21.02.23, 14:06

Rouse_	Сообщ. #3 , 02.03.23, 06:49
Moderator Профиль · PM Поощрения: 4 Dgm Рейтинг (т): 320	Пишешь наследника от TVirtualTreeColumns потом у дерева перекрываешь GetColumnClass и там возвращаешь класс своего наследника.

1 пользователей читают эту тему (1 гостей и 0 скрытых пользователей)

0 пользователей:

[ Script execution time: 0,0168 ] [ 15 queries used ] [ Generated: 30.10.25, 08:53 GMT ]