Hallo,
man erstelle eine Komponente der abgeleiteten Klasse TScrollBox.
Füge in private "procedure ListItemMouseEnter(Sender: TObject);" ein.
Starte Programm
Erzeuge Dynamisch ein Panel
Weise dem Panel folgedes zu:
Owner=Self der Komp.
Parent=Self der Komp.
OnMouseEnter:=ListItemMouseEnter;
Fahre mit der Maus auf das Panel -> Event "ListItemMouseEnter" wird ausgelöst.
Und jetzt kommts -> !
! Sender = () !
!
Hilfe
