Создание компонента

@russich · Регистрация: 02.12.2009

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

Добрый день,

создал свой компонент на основе имеджика, нужно сделать так, чтобы на нем была надпись.
Как вариант - думаю динамически создавать лабел, чтобы он помещался на моем компоненте.
Вопрос, как сделать так, чтобы этот лабел перемещался вместе с моим компонентом?

@Lelik-pahan · 29.12.2009, 20:47

Так не пойдёт?

C++
1
2
Label1->Top=(MyCompon1->Top+y)
Label1->Left=(MyCompon1->Left+y)

А если компонент на основе Image, у него должно быть свойство Canvas, тогда можно писать текст прямо на канве,без использования лейбла

C++
1
MyComp1->Canvas->TextOut(100, 60, "текст");

где 100 и 60 соответствуют параметрам Left и Top

@russich · 29.12.2009, 23:58 **[ТС]**

Lelik-pahan,
спасибо, что откликнулись.

Так не пойдёт?

C++
1
2
Label1->Top=(MyCompon1->Top+y)
Label1->Left=(MyCompon1->Left+y)

При перетаскивании моего компонента в процессе проектирования, Label1 останется на одном месте, здесь, похоже нужно отлавливать сообщение WM_MOVE.

А если компонент на основе Image, у него должно быть свойство Canvas, тогда можно писать текст прямо на канве,без использования лейбла

Если использавать канвас Image, пропадет картинка загруженная в Image, то есть перерисовка просто сотрет ее. Поэтому я решил использовать для отображения текста лабел. Можно, конечно, использовать метод прозначности заливки (Brush->Stile=bsClear), но здесь свои проблемы постоянной перерисовки. Не понятно в каком событии ее реализовать. Перегрузка функции Paint() здесь не проходит. Все таки остановлюсь на Лабел.

@Lelik-pahan · 30.12.2009, 00:04

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

При перетаскивании моего компонента в процессе проектирования, Label1 останется на одном месте, здесь, похоже нужно отлавливать сообщение WM_MOVE.

Этого я не умею, но пока к решению твоего вопроса не подключился кто-нибудь по мудрее, могу предложить ещё такой вариант )))
Можно записать код изменения параметров Top и Left лейбла в обработчик твоего компонента OnMouseMove при совместном нажатии на правую кнопку мыши в OnMauseDown.
А если компонент можно перетаскивать только за края, то добавить условие вроде:

C++
1
2
if (x>=MyKomp->Left&&x<=(MyKomp->Left+5)||...||...||...)//написал только для левого края
//х - координата курсора

Это конечно очень грамоздкий и некрасивый код, но я другого выхода не знаю )))

@russich · 30.12.2009, 00:24 **[ТС]**

Lelik-pahan,
спасибо за участие,
ваш код уместен только после компиляции программы, при проектировании приложения OnMouseMove не действует. Вспомните, когда вы перетаскивамете компонент по форме, сначала перетаскивается серый прямоугольник, а потом и сам компонент. Так вот у меня задача стоит сложнее, - нужно чтобы вместе с компонентом перемещался и мой лабел, как одно целое. Кстати, таких вот "двойных" и более компонентов на палитре в Борланде множество. Надо понять, как это делается, поэтому я здесь.

@Lelik-pahan · 30.12.2009, 00:44

А, я думал проблема в перетаскивании в работающем приложении...
Тогда конечно, всё что я писал не подходит.
Сейчас порою учебник, может найду чего

Добавлено через 12 минут
У компонентов, которые могут служить "контейнерами" для других компонентов, есть свойство DragKind.
У имейджа его нет, я делаю вывод, что с имейджем это нельзя осуществить.
У компонента, созданного тобой есть такое свойство?

@Андрей Борисови · 30.12.2009, 01:19

Возми TMS пакет 5.
Там есть такая штука, как лист бокс картинок с подписью... Может поможет)

@russich · 16.01.2010, 02:59 **[ТС]**

Lelik-pahan,
спасибо, вы были правы, нужно брать за основу оконные компоненты.

Новые блоги и статьи Все статьи Все блоги /
Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .

@russich 48 / 47 / 13 Регистрация: 02.12.2009 Сообщений: 144

	Создание компонента 29.12.2009, 20:25. Показов 1513. Ответов 7 Метки нет (Все метки) Добрый день, создал свой компонент на основе имеджика, нужно сделать так, чтобы на нем была надпись. Как вариант - думаю динамически создавать лабел, чтобы он помещался на моем компоненте. Вопрос, как сделать так, чтобы этот лабел перемещался вместе с моим компонентом? 0

@russich 48 / 47 / 13 Регистрация: 02.12.2009 Сообщений: 144
	30.12.2009, 00:24 [ТС]
	Lelik-pahan, спасибо за участие, ваш код уместен только после компиляции программы, при проектировании приложения OnMouseMove не действует. Вспомните, когда вы перетаскивамете компонент по форме, сначала перетаскивается серый прямоугольник, а потом и сам компонент. Так вот у меня задача стоит сложнее, - нужно чтобы вместе с компонентом перемещался и мой лабел, как одно целое. Кстати, таких вот "двойных" и более компонентов на палитре в Борланде множество. Надо понять, как это делается, поэтому я здесь. 0

@Lelik-pahan 1709 / 905 / 207 Регистрация: 25.11.2009 Сообщений: 1,850
	30.12.2009, 00:44
	А, я думал проблема в перетаскивании в работающем приложении... Тогда конечно, всё что я писал не подходит. Сейчас порою учебник, может найду чего Добавлено через 12 минут У компонентов, которые могут служить "контейнерами" для других компонентов, есть свойство DragKind. У имейджа его нет, я делаю вывод, что с имейджем это нельзя осуществить. У компонента, созданного тобой есть такое свойство? 0

@Андрей Борисови 714 / 402 / 33 Регистрация: 04.10.2009 Сообщений: 1,686
	30.12.2009, 01:19
	Возми TMS пакет 5. Там есть такая штука, как лист бокс картинок с подписью... Может поможет) 0

@russich 48 / 47 / 13 Регистрация: 02.12.2009 Сообщений: 144
	16.01.2010, 02:59 [ТС]
	Lelik-pahan, спасибо, вы были правы, нужно брать за основу оконные компоненты. 0