Listbox Sorunsali ver 2.0

[Viper]

Uzun zamandır Mp3 playerimle ugrasiyorum. Playlist olarak Listbox kullaniyorum. Random veya bir sonraki parcayi calma olaylari playere ekledim. Ancak bu bir sonraki parcayi calmayi
listbox.itemindex:=listbox1.itemindex+1; gibi ve randomize olayinida random sayi uretip caldirtiyorum. Ancak sorunum Su :

Listboxta satıra tıkladigimizda cikan mavi renkteki secim cubugu (veya Band herneyse) bunun o anki calan parcaya gitmesini nasil saglarim.
listbox1.setfocus gibi ancak randomda focuslayamior nedense....

Yada listbox ta 3000-4000 mp3 oldugunu varsayalim. Playlistte o anda gorunen item sayısınında max 10 oldugunu varsayalim. Calan parca
3999 uncu parca. Ancak listbox hala 1-10 arasi mp3 leri gosteriyor. Autoscroll gibi bir ozellik gibi direk listboxin gorunebilir kısmının 3990-4000 seviyesine gitmesini saglamam mumkunmu ?

Yani koda dokemedim ama mantık olarak
listbox1.itemindex := listbox1. O anki calan parca gibi birsey olmali sanırım
listbox taki kayıtlar su an da C:\Klasor\x.mp3 gibidir


Simdiden tesekkurler

[mcihad]

Normalde ben denedim kendi kendine oluyor ama sen refresh etmeyi dene

[mege]

ListBox1.TopIndex
bu özelliğini dene

bu ara sorunsalı lafını fazla kullanma türkçede sal sel eki yoktur. sözlükçü sanıcaklar sonra seni

[Viper]

Ne yazikki olmadi Topindex ile. Yine calan parca ile alakasi olmayan bir yerde bekliyor listbox. Calan parcanin oldugu yere gitmiyor.

[Viper]

Uzun denemelerim sonucu kodu buldum.
ListBox1.ItemIndex:=listbox1.Items.IndexOf(listbox1.Items.Strings[k]);

K : random sayı

[sadettinpolat]

böyle bir kod işinizi görmüyor mu?
ben denedim listede gözükmeyen bir elemanın numarasını verince kendisi otomatik olarak gidiyor

Kod: Tümünü seç

var
sira:Integer;

procedure TForm1.FormCreate(Sender: TObject);
var
i:Integer;
begin
sira := 0;
for i:=0 to 1000 do
  ListBox1.Items.Add(IntToStr(i));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ListBox1.ItemIndex := sira;
Inc(sira);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
ListBox1.ItemIndex := 100;
end;