Tags:
delphi
Mediaplayer playliste
kære udvikleren.dk brugere.
jeg har et problem med mit delphi har lavet en playliste, med en listbox, men meningen med en playliste er jo at den skal hoppe videre til næste nummer på mit itemindex det kan jeg ikke få den til. er der nogle der har en funktion til dette vil jeg være meget glad, og plz lad være med at redirecte mig til en eller anden website har brugt meget lang tid på at få det her til at virke uden held
3 svar postet i denne tråd vises herunder
1 indlæg har modtaget i alt 5 karma
Prøv det her på en ny form, lav en listBox kald den lb.
Lav 2 knapper, butOp, butNed.
OG lave en variabel der hedder currentSel
Som du kan se så flytter jeg itemIndex op og ned.
procedure TForm1.FormCreate(Sender: TObject);
var
i: integer;
begin
for i:=1 to 10 do begin
lb.Items.Add(intToStr(i));
end;
end;
procedure TForm1.sel(ix: integer);
begin
lb.Selected[ix]:=true;
lb.SetFocus;
currentSel:=ix;
end;
procedure TForm1.FormActivate(Sender: TObject);
begin
sel(4);
end;
procedure TForm1.butOpClick(Sender: TObject);
begin
if lb.Items.Count > 0 then begin
if currentSel > 0 then dec(currentSel);
sel(currentSel);
end;
end;
procedure TForm1.butNedClick(Sender: TObject);
begin
if lb.Items.Count > 0 then begin
if (currentSel+1) < lb.Items.Count then inc(currentSel);
sel(currentSel);
end;
end;
[Redigeret d. 29/01-03 13:55:37 af Martin Klausen Andersen]
0
Smid lige lidt kode ind hér så jeg kan se hvad du har lavet...så er der en mulighed for at man kan se hvad det er du har ligget og fedtet med.
0
Bare kort:
Der er ingen funktion til at flytte selected til næste linie, men du kan jo få den aktuelle valgte linie, og lægge én til index'ed og sætte selected til det nye index. Husk at teste om uden for listen (count-1). Jeg skal nok lige prøve at skrive noget rigtigt kode hvis jeg får tid senere.