если проигрывается, то
ShockwaveFlash1->Stop();
// если проигрывается, то остановим
ShockwaveFlash1->Forward();
// на следующий фрейм
ShowCurFrame();
}
//--------------------------------
void __fastcall TForm1::
Button6Click(TObject *Sender)
{
if (ShockwaveFlash1->IsPlaying())
ShockwaveFlash1->Stop(); //
если проигрывается, то остановим
ShockwaveFlash1->Rewind(); //
на 1-й фрейм
ShowCurFrame();
}
//--------------------------------
void __fastcall TForm1::
Button7Click(TObject *Sender)
{
ShockwaveFlash1->GotoFrame
(StrToInt(CSpinEdit1->Text)); // на введенный фрейм
ShowCurFrame();
}
//---------------------------------
void __fastcall TForm1::
Button8Click(TObject *Sender)
{
if (OpenDialog1->Execute())
{
if (ShockwaveFlash1->IsPlaying())
ShockwaveFlash1->Stop(); //
если проигрывается, то остановим
ShockwaveFlash1->Movie =
OpenDialog1->FileName;
Label4->Caption = IntToStr
(ShockwaveFlash1->TotalFrames); // Общее число фреймов
ShockwaveFlash1->Play();
Label2->Visible = false;
}
}
//-------------------------------
Forekc.ru
Рефераты, дипломы, курсовые, выпускные и квалификационные работы, диссертации, учебники, учебные пособия, лекции, методические пособия и рекомендации, программы и курсы обучения, публикации из профильных изданий