Помещение потомков TCustomControl -> Форум на Исходниках.Ру

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

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

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

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

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

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

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

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

Помещение потомков TCustomControl , Помещение потомков TCustomControl, на компонент

matveev_ruslan

Сообщ. #1 , 03.02.06, 07:15

Unregistered

У меня такая проблема!
Есть компонент - унаследованный от TCustomControl (A).
Есть другой компонент (B), у которого в ControlStyle - установлено csAcceptsControls.
Мне необходимо, чтобы компонент A - невозможно было поместить в контейнер компонента B - в design time.
К примеру так это в design - time происходит у TComponent, который при закидывании на форму - невозможно засунуть в контейнер компонента.

Мне нужно тоже самое, только с TCustomControl.

Кто знает?

Rouse_	Сообщ. #2 , 03.02.06, 08:32
Moderator Профиль · PM Поощрения: 4 Dgm Рейтинг (т): 320	if not (csDesigning in ComponentState) then ControlStyle := [csAcceptsControls];

matveev_ruslan	Сообщ. #3 , 03.02.06, 08:57
Unregistered	К чему ты это?... Мне нужно, чтобы некий компонент (потомок TCustomControl) - было НЕВОЗМОЖНО поместить в компонент - контейнер (т. е. ТОТ у которого ControlStyle установлен в csAcceptsControls) в DESIGN-TIME

Rouse_

Сообщ. #4 , 03.02.06, 09:33

Moderator

Профиль · PM

Поощрения: 4 Dgm

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

это я к тому что в конструкторе компонента вставь этот код и в DESIGN-TIME твой компонент не будет иметь стиль csAcceptsControls. В RunTime будет

Добавлено 03.02.06, 09:36
Ааа, погоди - чтобы его самомго нельзя было поместить? Я подумал чтобы он не мог принимать к себе в контейнер. Чичас подумаем

Добавлено 03.02.06, 09:56
Перекрывай procedure SetParent(AParent: TWinControl); override;
и в нем проверяй - на какой компонент нас полоили.
if (AParent is TForm) then...

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

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

[ Script execution time: 0,0307 ] [ 16 queries used ] [ Generated: 3.05.24, 16:15 GMT ]