Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Media";
Текущий архив: 2002.09.12;
Скачать: [xml.tar.bz2];

Вниз

ГОРЮ!!! Помогите, пожалуйста! Создание составных объектов.   Найти похожие ветки 

 
Muzzy   (2002-05-13 07:18) [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

Если поможете буду очень признателен!!!
Заранее большое спасибо!


 
KilkennyCat   (2002-05-14 12:12) [1]

Замечательно!
Я могу сделать за Вас эту курсовую, думаю, пару часов на это выделить можно... 50 баксов.
И вопрос: Вы собираетесь стать программистом?!


 
Mirovodin   (2002-05-14 20:29) [2]

2 KilkennyCat Присоединяюсь к вам, но снижу цену до 10$.

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


 
KaPaT   (2002-05-14 20:54) [3]

>Если можно не кусочек кода, а полностью модуль (.pas), если >возможно (чтоб было понятно).
....
хех...совет...идешь в первую же общагу своего заведения...трясешь деньгами...через пару часов можешь идти опять в опщагу и забирать свой курсовик....хех


 
Muzzy   (2002-05-15 07:04) [4]

Так вот именно - идти то некуда!
Ладно, я уже сам разобрался.



Страницы: 1 вся ветка

Форум: "Media";
Текущий архив: 2002.09.12;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.012 c
1-35746
don_dampster
2002-08-30 15:55
2002.09.12
Командная строка


4-35947
Acidy
2002-07-17 07:30
2002.09.12
Вопросик про GetQueueStatus...


1-35707
Mic_2000
2002-09-02 15:21
2002.09.12
как запустить файл с параметрами?


3-35568
i
2002-08-21 15:27
2002.09.12
Значение поля, полученное генератором


1-35725
lipskiy
2002-09-02 12:08
2002.09.12
Как в TEdit сделать выравнивание текста по высоте?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский