Курсовая работа: Проектування користувальницького інтерфейсу в C++ Builder

//---------------------------------------------------------------------------

Лістинг 4. (Unit4.cpp)

//---------------------------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

#include "Unit4.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm4 *Form4;

//---------------------------------------------------------------------------

__fastcall TForm4::TForm4(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------

TForm4::deltatime(int delta){

Timer1->Interval = delta;

Timer1->Enabled = true;

}

int step=0;

TForm4::nextstep(){

switch(step){

case 0:

deltatime(200);

break;

case 1:

MediaPlayer1->FileName = "data\\6565.mp3";

MediaPlayer1->Open();