Создание собственных объектов. HELP!!!

← →
Muzzy (2002-05-13 11:26) [0]

Здравствуйте, уважаемые мастера!
Срочно нужна Ваша помощь! Просьба не отсылать копаться в архивах и не сетовать на «тупость» за элементарный вопрос. Просто ГОРЮ!!! Скоро сессия (через 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) [1]

Ну такое творчество в наши дни оплачивается звонкой монетой. Потому как Долго, хлопотно и не интересно. Поэтому видно и нет ответов.

Создание собственных объектов. HELP!!! Найти похожие ветки