  ___________________________________373

MediaPlayerl->FileName = OpenDialogl->FileName;

Label4->Caption = MinimizeName(MediaPlayerl->FileName,Label4->
Canvas,200) ;

MediaPlayerl->Open() ;

MediaPlayerl->Notify ^ true;

}
)
//-

void _fastcall TFormI::MediaPlayerlNotify(TObject *Sender)
{

Label2->Caption = ": "+ModeStr[MediaPlayerl->Mode] ;

//  Notify,      

MediaPlayerl->Notify = true;

//-

void   fastcall TFormI::MediaPlayerlClick(TObject *Sender,

TMPBtnType Button, bool &DoDefault)
(

Label3->Caption = ": " + ButtonStr[Button];

//  Notify,    OnNotify

MediaPlayerl->Notify = true;

}

  FileName  MediaPlayerI   , -
    MediaPlayerI, ..    . -
   FormCreate  OnCreate   -
,          Label4 
Label2 .       Minimize-
Name,        (.
. 5.21)  ,         ( -
     200 ).    ,
    

ftinclude "filectrl.hpp"

      
,    (OpenClick),  -
 -   (MediaPlayerlClick),  -
   (MediaPlayerlNotify).    -
 

MediaPlayerl->Notify = true;

   OnNotify    -
 .

       (. 5.21).    
  ,     , ..  -
   .