Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Компоненты Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 01.04.2010, 22:11   #1
driga
 
Регистрация: 01.04.2010
Сообщений: 4
По умолчанию Shape

подскажите пожалуйста как сделать так чтобы у меня в шепе создавался еще один шейп!
driga вне форума Ответить с цитированием
Старый 02.04.2010, 02:07   #2
Баламут
Баламучу слегка...
Участник клуба
 
Аватар для Баламут
 
Регистрация: 01.11.2006
Сообщений: 1,585
По умолчанию

Никак. Для этого TShape должен по крайней мере наследоваться от TWinControl. А он наследуется от TGraphicControl, т.е. не является оконным.
Или я что-то не правильно понял?
Баламут вне форума Ответить с цитированием
Старый 02.04.2010, 21:31   #3
driga
 
Регистрация: 01.04.2010
Сообщений: 4
По умолчанию

хм печально! а можете тогда подать идее как сделать так чтобы в шейпе (прямоугольник) вписывалась еще одна такая же фигура но меньшая по размеру во время движения шейпа?
driga вне форума Ответить с цитированием
Старый 03.04.2010, 07:34   #4
Баламут
Баламучу слегка...
Участник клуба
 
Аватар для Баламут
 
Регистрация: 01.11.2006
Сообщений: 1,585
По умолчанию

Банально, пересчитываем координаты. Конкретная реализация зависит от того, как осуществляется движение - мышью таскаем или по таймеру прыгаем. В общем что-то типа того:
Код:
  Shape1.Top := Shape1.Top + 10;
  Shape2.Top := Shape2.Top + 10;
Впрочем вот, набросал примерчик для потаскушек мышью
Вложения
Тип файла: rar Forum.rar (6.3 Кб, 16 просмотров)
Баламут вне форума Ответить с цитированием
Старый 03.04.2010, 12:22   #5
driga
 
Регистрация: 01.04.2010
Сообщений: 4
По умолчанию

спасибо громадное! лаба успешна завершена)))
driga вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Рисование на Shape Stark[SG!] Мультимедиа в Delphi 8 09.06.2011 13:22
Pascal цикл с Shape.Left and Shape.Top BanzoO Помощь студентам 1 13.12.2009 21:47
помагите с shape Extez1 Помощь студентам 0 19.04.2009 00:01
Компоненты Shape Serega251 Общие вопросы Delphi 4 16.04.2009 14:11
Shape вверх russian-stalker Общие вопросы Delphi 1 12.09.2008 19:52