Delphi-Quellcode:
procedure TPowerplay.Vorr(Markiert: integer);
var a: TComponent;
begin
sel := Markiert + 1;
[u]a[/u].Selected[sel] := true;
label4.Caption := [u]a[/u].Items[sel];
label3.caption := Pfadlist.Items[sel];
if sel = [u]a[/u].Items.Count - 1 then begin vor.Enabled := false;
zu.Enabled := true;
end;
mp3play;
end;
Alle
a sollen je nach onclick Procedure Listbox bzw Filelistbox annehmen.
Wie kann ich das machen? Vielleicht ist es jetzt besser zu verstehen, was ich machen will.
MfG Moyyer