Добавление скроллбара к собственному компоненту

@T2skler · Регистрация: 16.05.2012

Студворк — интернет-сервис помощи студентам

Есть компонент для которого требуется добавить скроллбар. Делаю это обычным созданием скроллбара на собственном компоненте:

C++
1
2
3
4
5
6
7
8
    ScrollBar = new TScrollBar(Owner);
    ScrollBar->Parent = dynamic_cast<TWinControl*>(this);
    ScrollBar->Kind = sbVertical;
    ScrollBar->Width = 20;
    ScrollBar->Height = Height;
    ScrollBar->Left = Left + Width - 20;
    ScrollBar->Top = 0;
    ScrollBar->Anchors = ScrollBar->Anchors << akRight << akBottom << akTop >> akLeft;

Всё вполне удовлетворяет требованием кроме одного момента - скроллбар не является "частью" компонента. Соответственно его поведение совпадает с поведением любого другого компонента, а именно: его можно изменять и при необходимости даже удалить. Как это возможно исправить?

@DefineTrueFalse · 13.10.2012, 15:41

Сообщение от T2skler

Всё вполне удовлетворяет требованием кроме одного момента - скроллбар не является "частью" компонента. Соответственно его поведение совпадает с поведением любого другого компонента, а именно: его можно изменять и при необходимости даже удалить. Как это возможно исправить?

Немного не понял, что имеется ввиду. Объяви его в private и доступ к нему даже наследники от класса иметь не будут.

@T2skler · 13.10.2012, 15:50 **[ТС]**

Сообщение от DefineTrueFalse

Немного не понял, что имеется ввиду. Объяви его в private и доступ к нему даже наследники от класса иметь не будут.

Указатель на скроллбар объявлен в private, но на форме я могу редактировать его настройки, как у обычного компонента. Кстати, имя у скроллбара <Components[21]>.

@DefineTrueFalse · 13.10.2012, 15:57

А родитель компонента не форма случаем?

Добавлено через 3 минуты
Мне просто кажется, что у Вас что-то вроде:

C++
1
2
3
TComponent * Source;
TComponent * MyComponent = new TComponent(Source->Parent);
MyComponent->Parent = Source;

@T2skler · 13.10.2012, 16:41 **[ТС]**

Сообщение от DefineTrueFalse

А родитель компонента не форма случаем?

Добавлено через 3 минуты
Мне просто кажется, что у Вас что-то вроде:

C++
1
2
3
TComponent * Source;
TComponent * MyComponent = new TComponent(Source->Parent);
MyComponent->Parent = Source;

Родитель компонента - форма, а родитель скроллбара - компонент.

@DefineTrueFalse · 13.10.2012, 17:29

Видимо я не правильно выразился. В общем, если листинг первого поста происходит в инициализации компонента, то вместо Owner должен быть this.

@T2skler · 13.10.2012, 17:37 **[ТС]**

Сообщение от DefineTrueFalse

Видимо я не правильно выразился. В общем, если листинг первого поста происходит в инициализации компонента, то вместо Owner должен быть this.

Благодарю

Опять моя невнимательность сыграла со мной злую шутку

Новые блоги и статьи Все статьи Все блоги /
Перемещение выделенных строк ТЧ из одного документа в другой Maks 30.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .

@DefineTrueFalse 872 / 448 / 35 Регистрация: 25.10.2011 Сообщений: 910
	13.10.2012, 17:29
	Видимо я не правильно выразился. В общем, если листинг первого поста происходит в инициализации компонента, то вместо Owner должен быть this. 1