Du musst dir anschauen, wie ein On-Clickevent aufgebaut ist und eine entsprechende Prozedur erstellen, z.B.
procedure MyOwnListboxOnClick(Sender: TObject);
Diese Prozedur musst du dann bei der Erzeugung der Listbox dem OnClick zuweisen:
songListBox.OnClick := MyOwnListboxOnClick;
In der Prozedur hast du dann mit Sender zugriff auf die Listbox:
Delphi-Quellcode:
procedure Form1.MyOwnListboxOnClick(Sender: TObject);
var lb:TListbox;
begin
if Sender is TListbox then
lb:=TListbox(Sender)
else
exit;
//Mach was mit lb
end;
Ist jetzt nut schnell hingetippt, ohne Gewähr.