ListBox verliert Focus

Reply to ListBox verliert Focus on Sat, 03 Dec 2005 17:36:50 GMT

Linuxguru — Sat, 03 Dec 2005 17:36:50 GMT

Hallo. Wie schon im Titel beschrieben verliert meine Listbox beim letzten Titel in der Listbox den Focus. Das ganze ist in Verbindung mit TMediaPlayer.

Hier mal mein Code

void __fastcall TForm1::ImgBtPlayClick(TObject *Sender)
{
  Timer1->Enabled = true;
  MediaPlayer1->FileName = PlayList->Items->Strings[PlayList->ItemIndex];
  MediaPlayer1->Open();
  MediaPlayer1->Play();
}
void __fastcall TForm1::ImgBtNextClick(TObject *Sender)
{
  PlayList->ItemIndex++;
  ImgBtPlayClick(Sender);
  if (PlayList->ItemIndex == PlayList->Items->Count -1)
    PlayList->ItemIndex = -1;
  Label1->Caption = IntToStr(StrToInt(PlayList->ItemIndex)+1);
}

Beim letzten Titel geht der Eintrag verloren. Somit auch die Nummer des abgespielten Titels. Kann mir jemand einen Tip geben?

Danke im Voraus

PS: wenn ich die 2 Zeilen auskommentiere, dann geht es problemlos. Der Fehler muss in der Anweisung liegen.

if (PlayList->ItemIndex == PlayList->Items->Count -1)
    PlayList->ItemIndex = -1;

Reply to ListBox verliert Focus on Sat, 03 Dec 2005 17:41:48 GMT

Christian211 — Sat, 03 Dec 2005 17:41:48 GMT

PlayList->SetFocus();

Reply to ListBox verliert Focus on Sat, 03 Dec 2005 18:00:38 GMT

Linuxguru — Sat, 03 Dec 2005 18:00:38 GMT

Hallo Christian,

Danke für die Antwort. Ist natürlich eine Möglichkeit den Focus Manuell zu setzen. Wenn ich aber nun 10 Lieder hinzufüge, dann ist der Focus erst beim 10 Lied weg.
Gibt es dafür eine Erklärung?

Danke

Reply to ListBox verliert Focus on Sat, 03 Dec 2005 18:05:30 GMT

Linuxguru — Sat, 03 Dec 2005 18:05:30 GMT

Habs gerade behoben.

Die Reihenfolge der Zeilen ist entscheidend

void __fastcall TForm1::ImgBtNextClick(TObject *Sender)
{
  if (PlayList->ItemIndex == PlayList->Items->Count -1)
    PlayList->ItemIndex = -1;
  PlayList->ItemIndex++;
  ImgBtPlayClick(Sender);
  Label1->Caption = IntToStr(StrToInt(PlayList->ItemIndex)+1);
  Label2->Caption = IntToStr(PlayList->ItemIndex);
}