Рассказывается о создании в среде разработки Borland C++ Builder 6 учебной программы с применением некоторых компонентов и мультимедийных функций

Листинг 19.2. Окончательный вид заголовка программы
//---------------------------------------------------------------------------
#include
#pragma hdrstop
#include
#include "Uabc.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
Теперь откройте форму Form1 программы и замените ее свойство Caption на заголовок Азбука. Разверните форму на весь экран и разместите все компоненты на форме в соответствии с рис. 19.1.
Создайте функции обработки для каждой из оставшихся 32-х букв, вызывая для этого инспектор кода щелчком левой кнопки мыши по букве, и скопируйте строки программы, приведенные для буквы А (компонент Label1), в функцию каждой буквы. Замените в скопированных строчках комментарии и имена файлов в соответствии с названием буквы. В результате у вас должна получиться программа, состоящая из строк, похожих на строки, приведенные в листинге 19.3.
Листинг 19.3. Строки программы
TForm1 *Form1;
//----------------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//- Буква А ---------------------------------------------------------------------
void __fastcall TForm1::Label1Click(TObject *Sender)
{
Image1->Picture->LoadFromFile("PICTURE/1.bmp");
PlaySound("SOUND/1.wav",0,SND_ASYNC);
}
//--Буква Б-----------------------------------------------------------------------
void __fastcall TForm1::Label2Click(TObject *Sender)
{
Image1->Picture->LoadFromFile("PICTURE/2.bmp");
PlaySound("SOUND/2.wav",0,SND_ASYNC);
}
//--Буква В-------------------------------------------------------------------------
void __fastcall TForm1::Label3Click(TObject *Sender)
{
Image1->Picture->LoadFromFile("PICTURE/3.bmp");
PlaySound("SOUND/3.wav",0,SND_ASYNC);
}
...
и т.д.
//--Буква Я-------------------------------------------------------------------------
void __fastcall TForm1::Label33Click(TObject *Sender)
{
Image1->Picture->LoadFromFile("PICTURE/33.bmp");
PlaySound("SOUND/33.wav",0,SND_ASYNC);
}
//----------------------------------------------------------------------------------
Отличие может быть в расширениях файлов рисунков, поскольку формат этих файлов может быть одним из трех разрешенных, о чем было сказано ранее.
Для изменения значка программы необходимо нарисовать его с помощью инструментальной программы графического редактора