Создание собственных объектов. HELP!!!
Muzzy © (2002-05-13 11:26:00)
Здравствуйте, уважаемые мастера!
Срочно нужна Ваша помощь! Просьба не отсылать копаться в
архивах и не сетовать на «тупость» за элементарный вопрос. Просто
ГОРЮ!!! Скоро сессия (через 7 дней), а курсовая неготовая!
Вопрос:
Нужно описать объект (предположим TSamoletik), в котором
внутри находится TAnimate с FileName:=’samoletik_letit.avi’.
1. Рождать от него объекты (т.е.потомки Create)
2. По событию (при рождении, предположим TSamoletik.
CreateSamoletik(“передается случайное Y»:integer)) он создается за
пределами формы, и пролетает по ней (по оси Y), скрываясь за
границей Left формы, после чего сам Уничтожается.
3. По событию TSamoletik.Killed меняет в
Animate1.FileName:="samoletik_killed.avi", проигрывает его и тоже
уничтожается
4. Движется сам по заданной Y (не контролируя)
Смысл в том чтобы нарожать сколько нужно самолетиков, чтобы
они сами летели, и сбивать их.
Если можно не кусочек кода, а полностью модуль (.pas), если
возможно (чтоб было понятно).
Можно на EMail: muzzy@mailru.com
Если поможете буду очень признателен!!!
Заранее большое спасибо!
cpp (2002-05-13 14:52:00) [1]
Ну такое творчество в наши дни оплачивается звонкой монетой.
Потому как Долго, хлопотно и не интересно. Поэтому видно и нет
ответов.
Наверх 
ЧАТ |
Орешник |
|
