Нюансы MediaPlayer

Savant · Отправлено: **01:15, 26-05-2005** | #2

Apock
1: типо такого код ?

Код:

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  if (OpenDialog1->Execute()) 
  {
	ListBox1->Items->Add(OpenDialog1->FileName);
  }
}
 
void __fastcall TForm1::ListBox1Click(TObject *Sender)
{
  MediaPlayer1->FileName = ListBox1->Items->Strings[ListBox1->ItemIndex];
  //MediaPlayer1->DeviceType = dtWaveAudio;
  MediaPlayer1->Open();
  MediaPlayer1->Play();
}

По крайней мере в Дельфях работает

2: может свойство DisplayRect у TMediaPlayer поможет. Хотя вопрос не очень понял....