Помогите,пожалуста!

[Регина]

Урезали время на диплом, до сдачи неделя, тема –обучающая программа для детей от 3 до 6 лет. Анимационная заставка , ну енто не так сложно, дальше хуже. Вывод формы с алфавитом, при нажатии на букву появляется форма с этой буквой , рисунком и звуковым файлом . Як енто сделать не врубаюсь.ХЕЛПППП!!!!!!

[Shuraken]

И в чем собственно загвоздка. Разбиваем все на этапы.
1. Анимационная заставка. ... проехали.
2. Вывод формы с алфавитом. Ну пусть это будут кнопки с буквами.
3. При нажатии на букву (читай, на кнопку) появляется форма с этой буквой, рисунком и звуковым файлом. Здесь на этапе создания приложения создаешь вторую форму, обзываешь ее как-нибудь поосмысленней (TAlphabetForm, к примеру (сорри за мой инглиш)), в разделе public этой формы прописываешь три переменные:
_ImageSymbolPath: string; //сюда мы будем прописывать путь к рисунку буквы
_ImagePath: string; // сюда путь к рисунку
_MediaFilePath: string; //сюда к звуковому файлу
И дальше обрабатываешь у этой формы событие... ну пусть будет OnShow
procedure TAlphabetForm.FormShow(Sender: TObject);
begin
if _ImageSymbolPath <> '' then
ImageSymbol.Picture.LoadFromFile(_I mageSymbolPath);
if _ImagePath <> '' then
Image.Picture.LoadFromFile(_ImagePa th);
if _MediaFilePath <> '' then
begin
MediaPlayer1.FileName := _MediaFilePath;
MediaPlayer1.Open;
MediaPlayer1.Play;
end;
end;

В данном коде ты просто проверяешь каждую переменную и, если в ней есть какое-нибудь значение, то тогда загружаешь соответствующий ресурс. Само собой, в таком варианте на форме у тебя должны быть два Image и MediaPlayer.

После этого в первой форме пишешь

uses AlphabetFrm; //название сохраненной формы, в свойствах проекта (Project\Options\Form) убираешь из списка Auto Create Forms форму AlphabetForm и дальше на каждую кнопку создаешь примерно такой обработчик

procedure TForm1.ButtonAClick(Sender: TObject);
begin
with TAlphabetForm.Create(self) do
try
_ImageSymbolPath := 'A.bmp';
_ImagePath := 'NewImage.bmp';
_MediaFilePath := 'A.wav';
ShowModal;
finally
Release;
end;
end;

И, в принципе, все. Само собой у тебя должны (при такой коде) в той же папке, где и сама программа, лежать соответствующие файлики с картинками и звуковые файлы. Удачи.

[Регина]

Наглею.....А как на счет циклической анимационной заставки???

А вообще огромное СПАСИБО!!!!!

[Shuraken]

Сообщение от Регина

Наглею.....А как на счет циклической анимационной заставки???

Ну, наглость - второе счастье. А что это такое - циклическая анимационная заставка?

[Регина]

Млин, не фига не получается , я в шоке , диплом сдавать 9 июня ,а я туплю не по детски!!!!!!!!!!!!!!!!!!!!!

[Nemon]

Ты лучше скажи как и чем ты завставку делаешь?
А там может и ответ будет