Procedure mit unterschiedlichen Objekten

[Moyyer]

Delphi-Quellcode:

procedure TPowerplay.Vorr(Markiert: integer);
begin
sel := Markiert + 1;
pllist.Selected[sel] := true;
label4.Caption := pllist.Items[sel];
label3.caption := Pfadlist.Items[sel];
if sel = pllist.Items.Count - 1 then begin vor.Enabled := false;
                                           zu.Enabled := true;
                                     end;
mp3play;
end;

Hallo

Oben hab ich eine Procedure aus meinem Programm. Mein Problem ist, dass diese Procedure von zwei Objekten gleichzeitig genutzt werden soll. Ich habe die Komponenten (pllíst = Listbox und Filelist = Filelistbox). Je nach benutzung, soll (bildlich) aus allen pllist filelist werden und andersrum. Wie kann ich das realisieren?

Thx Moyyer

[Moyyer]

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

[toms]

Vielleicht so?

Delphi-Quellcode:

procedure TPowerplay.Vorr(Sender: TCustomListBox; Markiert: Integer);
begin
  sel := Markiert + 1;
  Sender.Selected[sel] := True;
  label4.Caption := Sender.Items[sel];
  label3.Caption := Pfadlist.Items[sel];
  if sel = Sender.Items.Count - 1 then 
  begin 
    vor.Enabled := False;
    zu.Enabled  := True;
  end;
  mp3play;
end;